Записать ** Паскале задачуданы два числа х, у большее из них возвести в квадрат.

0 голосов
66 просмотров
Записать на Паскале задачу
даны два числа х, у большее из них возвести в квадрат.

Информатика (139 баллов) | 66 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var a, b : integer;
begin
readln(a,b);
if a > b then written(a*a)
else writeln(b*b);
readln()
end.
––––––––––––––––––––––
Если что-то не понятно - пиши

(786 баллов)
0

Var
x,y,k:integer;

begin
writeln('Введите первое число');
read(x);
writeln('Введите второе число');
read(y);
If x>y then k:=x else K:=y;
K:=k*k;
writeln('Ответ ', k);
end.

Как то так