Ребят помогите с информатикой! Язык програмирования паскаль
На уроках геометрии Володе надо чертить квадраты. Это ему надоело, и он написал программу, которая рисует квадраты из букв, входящих в выбранные Володей слова.
Дано слово. Выведи каждую букву, входящую в это слово, столько раз, сколько букв в слове. Должен получиться квадрат как в тесте.
На уроках геометрии Володе надо чертить квадраты. Это ему надоело, и он написал программу, которая рисует квадраты из букв, входящих в выбранные Володей слова.
Дано слово. Выведи каждую букву, входящую в это слово, столько раз, сколько букв в слове. Должен получиться квадрат как в тесте.
More Questions From This User See All
Answers & Comments
Ответ:
program z;
var s:string;
i,j:integer;
begin
read(s);
for i:=1 to length(s) do
begin
for j:=1 to length(s) do write(s[i]);
writeln
end
end.
Объяснение:
воспользовались функцией length(), которая возвращает длину строки, и вложенными циклами со счётчиком для перебора символов в строке и вывода их на экран нужное количество раз