Даю 45 баллов!!! Очень нужно срочно!!!!
Задание в Паскале:
Ввести x,y если оба чётные числа. Вывести на экран квадрат их суммы.
Заранее большое спасибо!!!
Задание в Паскале:
Ввести x,y если оба чётные числа. Вывести на экран квадрат их суммы.
Заранее большое спасибо!!!
Answers & Comments
//Версия 3.3, сборка 1627
begin
var (x,y):=ReadInteger2;
if x.IsEven and y.IsEven then write((x+y)**2);
end.
Verified answer
Program zadacha;var
x,y:integer;
begin
writeln('Введите x:');
readln(x);
writeln('Введите y:');
readln(y);
writeln(Sqr(x+y));
end.