3. (на оценку 3). Разработать алгоритм для решения задачи. Даны два числа. Если они равны, то вывести сумму их квадратов. В противном случае вывести квадрат их суммы.
ArtMuxomor:
На каком языке? На Паскале?
Ответы
Ответ дал:
0
Ответ:
На паскале
program zadanije_tri;
var a, b, c:integer;
begin
writeln('Введите первое число.');
readln(a);
writeln('Введите второе число.');
readln(b);
if a=b then
begin
c:=a*a+b*b;
writeln('Введённые числа равны, сумма их квадратов равна ',c,'.');
end
else
begin
c:=(a+b)*(a+b);
writeln('Введённые числа не равны, квадрат их суммы равен ',c,'.');
end
end.
Объяснение:
Если ввести равные ЦЕЛЫЕ числа, то программа выдаст сумму их квадратов, если ввести разные числа, то программа выдаст квадрат их суммы.
Ответ дал:
0
program Hello;
var
a : integer;
b : integer;
begin
readln(a, b);
if a = b then
writeln(a * a + b * b)
else
writeln(a * a + 2 * a * b + b * b);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад