1)Написать программу, которая вводит натуральное число N и выводит первые N натуральных чисел. 2)Написать программу, которая вводит натуральные числа А и В, и выводит квадраты натуральных чисел в диапазоне от А до В.
1 программа:
var a, i:integer;
begin
write('Введите натуральное число: ');
readln(a);
if (a <= 0) then</p>
writeln('Ошибка')
else begin
for i:=1 to a do
writeln(i);
end;
end.
2 программа:
var a, b, i:integer;
write('Введите 1 число: ');
if (a < 0) then
write('Введите 2 число: ');
readln(b);
if (b < 0) then
for i:=a to b do begin
writeln(i*i);
Нужно без оператора exit сделать мы такое не изучали
Я изменил программы и убрал оператор exit
Можешь 1 решить с использованием предусловия