Даны два числа А и В. Найдите квадрат большего из них и, если это первое число, выведите "1", а если второе, то выведите "2". (А=5, В=7).

Решите на паскале!

Question

Информатика

Семион

8 марта, 20:42

Даны два числа А и В. Найдите квадрат большего из них и, если это первое число, выведите "1", а если второе, то выведите "2". (А=5, В=7).

Решите на паскале!

+3

Ответы (1)

Знаете ответ?

Афанасия · Answer 1

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.

Даны два числа А и В. Найдите квадрат большего из них и, если это первое число, выведите "1", а если второе, то выведите "2". (А=5, В=7).Решите на паскале!

Даны два числа А и В. Найдите квадрат большего из них и, если это первое число, выведите "1", а если второе, то выведите "2". (А=5, В=7).

Решите на паскале!