Предмет: Информатика,
автор: Аноним
Задание Паскаль .Вывести квадраты всех чисел от a до b. ( Значения а и b вводятся с клавиатуры; b>=a).Для выполнения организовать цикл с предусловием.
Ответы
Автор ответа:
1
//PascalABC.NET v3.3 1633
begin
var a,b: integer;
repeat
a:=ReadInteger('Введите A: ');
b:=ReadInteger('Введите B: ');
if not (b >= a) then writeln('Неверный ввод! B должно быть больше или равно A!');
until b >= a;
while a <= b do
begin
writeln(' '+a+'^2 = '+sqr(a));
a += 1;
end;
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: inkarbalabek2
Предмет: Алгебра,
автор: kusrik
Предмет: Математика,
автор: ttttttttttiiii666
Предмет: Литература,
автор: llbrzv
Предмет: Математика,
автор: lucach