Задание:

Написать программу, которая будет после запуска выводить ваше имя и фамилию на экран

столько раз, сколько букв в сумме содержится в вашем имени и фамилии.

Пример

Вас зовут Василий Петров. В вашем имени и фамилии 13 букв. После запуска, программа должна

вывести надпись «Василий Петров» 13 раз
Паскаль

( PascalABC.NET )

var s: string;

var i: integer;

begin

write('Введите ваше имя и фамилию: ');

readln(s);

i:=s.Length-1;

while (i>0) do  

begin  

writeln(s);

i:=i-1;

end;

end.

program study235;

const n = 3;

         m = 6;

type mas = array [1..n, 1..m] of integer;

var a: mas;

     i, j, temp: Integer;

begin

writeln('Дан целочисленный двумерный массив, размерности n × m, при n = 3 m = 6. Поменять местами первый и последний элемент.');

writeln;

randomize;

writeln('Исходный массив:');

for i := 1 to n do

 for j := 1 to m do

 begin

 a[i, j] := random(201);

 write(a[i, j], '; ');

 if (j = 6) then writeln;

 end;

temp := a[1, 1];

a[1, 1] := a[3, 6];

a[3, 6] := temp;

writeln;

writeln('Преобразованный массив:');

for i := 1 to n do

 for j := 1 to m do

 begin

  write(a[i, j], '; ');

  if (j = 6) then writeln;

 end;

readln;

end.