Question

Помогите пожалуйста написать программу в Pascal ABC с оператором FOR.А то сам незнаю!Срочно дам 488 баллов!

Answer 1

program for1;
 var
    i, n: integer;
 begin
    write ('Количество знаков: ');
    readln (n);
writeln('Выводим ', n, 'знаков (*) ')
  for i := 1 to n do
        write ('(*) ');
 readln
end.

program for2; //программа, которая будет выводить на экран квадраты чисел от 1 до 10.
 uses crt;
var N:integer;
begin
  clrscr;
   For N:=1 To 10 Do
     writeln (sqr(N));
  readln
end.

Answer 2

А ещё варианты?

Answer 3

ок

Answer 4

сейчас напишу

Answer 5

воот...)

Answer 6

если у Вас версия Паскаля ABC, то пустое readln
можно не писать

Answer 7

Пример 1. Квадраты чисел от 2-х до 10-и. for x:=2 to 10 do WriteLn(x*x); Пример 2. Латинский алфавит. for ch:='A' to 'Z' do Writeln(ch); Пример 3. Использование цикла с downto. for i:=10 downto 1 do WriteLn(i); Пример 4. Использование составного оператора. for x:=1 to 10 do begin y:=2*x+3; WriteLn('f(',x,')=',y); end;