
Tobahsiba
5 год назад
Задание - составить программу в pascalвводишь два числа а и б. при чем а < б. надо вывести квадраты всех чисел между а и б
ОТВЕТЫ

Anton
Oct 24, 2020
var a,b:integer;
begin
write('Введите a ');
readln(a);
write('Введите b ');
readln(b);
inc(a);
while a<>b do begin
writeln(a*a);
inc(a);
end
end.
begin
write('Введите a ');
readln(a);
write('Введите b ');
readln(b);
inc(a);
while a<>b do begin
writeln(a*a);
inc(a);
end
end.
651
Смежные вопросы: