Регистрация
liza1437
17.02.2021 02:57
Информатика
Есть ответ 👍

Ввести два целых числа a и b (a ≤ b) и вывести квадраты всех чисел от a до b ( язык Паскаль)
через while​

110
390
Посмотреть ответы 1

Ответы на вопрос:

jgjgjgjh
jgjgjgjh
4,4(77 оценок)

var a,b,c: integer;

begin

readln (a,b,c);

if ((a > b) and (a < c)) or ((a < b) and (a > c)) or ((a< b) and (b=c)) or ((a< b) and (a=c)) or ((a< c) and (a=b)) then writeln(a)

else if ((b > a) and (b < c)) or ((b < a) and (b > c)) then writeln(b)

else writeln(c);

end.

Популярно: Информатика