Question

Написать программу, которая напишет 5 раз слово "Привет" нужно использовать For.. to... и do.. что-то по типу такого: Program sum; Var i,n,s:integer; Begin Writeln(‘ Введите n’); Read(n); S:=0; i:=1; While i<=n do Begin s:=s+i; i:=i+1; End; Writeln(‘ Сумма чисел= ’, S); End.

Answer 1

Ответ:

Объяснение:

program pr;

begin

  writeln('Ïðèâåò!');

  writeln('Ïðèâåò!');

  writeln('Ïðèâåò!');

  writeln('Ïðèâåò!');

  writeln('Ïðèâåò!');

end.

Answer 2

Конечно, вот программа на Pascal, которая будет писать слово "Привет" 5 раз с использованием цикла for..to..do:

pascalCopy code
Program PrintHello;

Var
  i: integer;

Begin
  For i := 1 to 5 do
  Begin
    Writeln('Привет');
  End;
End.

Эта программа будет выводить слово "Привет" 5 раз подряд, как вы хотели.