Question

1) Написать программу, которая вводит натуральное число N и выводит первые N натуральных чисел.
2) Написать программу, которая вводит натуральные числа А и В, и выводит квадраты натуральных чисел в диапазоне от А до В.

Answer 1

1 программа:

var a, i:integer;

begin

write('Введите натуральное число: ');

readln(a);

if (a <= 0) then

writeln('Ошибка')

else begin

for i:=1 to a do

  writeln(i);

end;

end.

2 программа:

var a, b, i:integer;

begin

write('Введите 1 число: ');

readln(a);

if (a < 0) then

 writeln('Ошибка')

else begin

 write('Введите 2 число: ');

 readln(b);

 if (b < 0) then

   writeln('Ошибка')

 else begin

   for i:=a to b do begin

   writeln(i*i);

end;

end;

end;

end.