напишите программы на паскаль.
1) даны два числа. если они равны, то найдите сумму их квадратов, иначе - вычислить их произведение.
2) даны два числа. если они оба отрицательны, то найти сумму их квадратов, иначе - вычислить модуль их разности.
1) даны два числа. если они равны, то найдите сумму их квадратов, иначе - вычислить их произведение.
2) даны два числа. если они оба отрицательны, то найти сумму их квадратов, иначе - вычислить модуль их разности.
More Questions From This User See All
Answers & Comments
1.
program raf105;
var a,b,c:real;
begin
write('Введите 2 числа: ');
readln(a,b);
if a=b
then c:= a**2+b**2
else c:= a*b;
writeln('Вывод: ',c);
end.
2.
program raf105;
var a,b,c:real;
begin
write('Введите 2 числа: ');
readln(a,b);
if (a<0) and (b<0)
then c:= a**2+b**2
else c:= abs(a-b);
writeln('Вывод: ',c);
end.
Язык программирования PascalABC