1) Написать программу, которая вводит натуральное число N и выводит первые N натуральных чисел.
2) Написать программу, которая вводит натуральные числа А и В, и выводит квадраты натуральных чисел в диапазоне от А до В.
Ответы
Ответ дал:
0
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.
altyxovan19:
Нужно без оператора exit сделать мы такое не изучали
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад