Даю 40 баллов!!! Напишите программу в паскале. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.
входные данные: 2 1
выходные данные: 5 3 4 4
Ответы на вопрос
Ответил GhostOfYou
0
var a,b:real;
begin
readln (a,b);
write(sqr(a)+sqr(b) + ' ');
write(sqr(a)-sqr(b) + ' ');
write(sqr(a)*sqr(b) + ' ');
write(sqr(a)/sqr(b));
end.
begin
readln (a,b);
write(sqr(a)+sqr(b) + ' ');
write(sqr(a)-sqr(b) + ' ');
write(sqr(a)*sqr(b) + ' ');
write(sqr(a)/sqr(b));
end.
Новые вопросы