Question

Ребят помогите с информатикой! Язык програмирования паскаль

На уроках геометрии Володе надо чертить квадраты. Это ему надоело, и он написал программу, которая рисует квадраты из букв, входящих в выбранные Володей слова.
Дано слово. Выведи каждую букву, входящую в это слово, столько раз, сколько букв в слове. Должен получиться квадрат как в тесте.
​

Answer 1

Ответ:

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(), которая возвращает длину строки, и вложенными циклами со счётчиком для перебора символов в строке и вывода их на экран нужное количество раз