3. (на оценку 3). Разработать алгоритм для решения задачи. Даны два числа. Если они равны, то вывести сумму их квадратов. В противном случае вывести квадрат их суммы.
226
404
Ответы на вопрос:
На паскале
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.
Объяснение:
Если ввести равные ЦЕЛЫЕ числа, то программа выдаст сумму их квадратов, если ввести разные числа, то программа выдаст квадрат их суммы.
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.
Ябегу как паровоз у меня опять понос в туалет несусь я щас обоссусь ну как-то так
Популярно: Информатика
-
zalina5925.02.2022 07:14
-
диана247323.01.2022 01:51
-
progonskaij23.06.2020 20:42
-
TuttiFrutti5620.03.2023 08:51
-
sarychevalenka24.03.2020 06:08
-
ник504025.04.2021 21:51
-
Danil54584903.05.2023 06:26
-
mkm305.07.2021 00:33
-
EvilIncognito04.02.2023 02:22
-
ibufiz1808.12.2021 14:18