Даны два числа А и В.Найдите квадрат большего из них и, если это первое число, выведите "1", а если второе, то выведите "2". (А=5,В=7).Решите на паскале!!!!!!
Даны два числа А и В.Найдите квадрат большего из них и, если это первое число, выведите "1", а если второе, то выведите "2". (А=5,В=7).
Решите на паскале!!!!!!
Гость
Ответ(ы) на вопрос:
ГостьProgram zz;
var a,b:integer;
begin writeln('Введите число A ');
readln (a); writeln('Введите число B ');
readln (b); a:=a*a; b:=b*b;
if a>b then writeln(a)
else writeln(b);
if a>b then writeln(1)
else writeln(2);
end.
Не нашли ответ?
Похожие вопросы