Question

Напишите программу, которая 10 раз выводит на экран ваши имя и фамилию тремя способами: а) for б) while в) repeat…until.
Пожалуйста!!! Сегодня сдавать

Answer 1

var i:integer;

   name:string;

begin

 writeln('Введите свое имя');

 readln(name);

 writeln('Способ через For: ');

 for i := 1 to 10 do

   write(name + ' ');

 i := 1;

 writeln();

 writeln('Способ через While: ');

 while i < 11 do begin

   write(name + ' ');

   i := i + 1;

 end;

 i := 1;

 writeln();

 writeln('Способ через repeat..until: ');

 repeat

   write(name + ' ');

   i := i + 1;

 until i > 10;

end.

Answer 2

Извините, помогите пожалуйста с моим вопросом по информатике. Очень.очень буду благодарна

Answer 3

Ответ:

Через WHILE:

var s: string;

var i: integer;

begin

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

readln(s);

i:=1;

while (i<=10) do begin

writeln(s);

i:=i+1;

end;

end.

Через REPEAT:

var s: string;

var i: integer;

begin

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

readln(s);

i:=1;

repeat

begin

writeln(s);

i:=i+1;

end;

until (i>10);

end.

Через FOR:

var s: string;

var i: integer;

begin

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

readln(s);

for i:=1 to 10 do writeln(s);

end.