
3. (на оценку 3). Разработать алгоритм для решения задачи. Даны два числа. Если они равны, то
вывести сумму их квадратов. В противном случае вывести квадрат их суммы.

Ответы на вопрос

Ответ:
На паскале
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.



Алгоритм для решения данной задачи можно описать следующим образом:
Считать два числа (пусть они называются
number1
иnumber2
).Проверить, равны ли числа
number1
иnumber2
.Если числа равны, выполнить следующие действия:
- Вычислить квадрат каждого числа:
square1 = number1 * number1
иsquare2 = number2 * number2
. - Посчитать сумму квадратов:
sum_of_squares = square1 + square2
. - Вывести результат: "Числа равны. Сумма их квадратов: sum_of_squares".
- Вычислить квадрат каждого числа:
В противном случае, выполнить следующие действия:
- Посчитать сумму чисел:
sum = number1 + number2
. - Вычислить квадрат суммы:
square_of_sum = sum * sum
. - Вывести результат: "Числа не равны. Квадрат их суммы: square_of_sum".
- Посчитать сумму чисел:
Пример на псевдокоде:
plaintextСчитать number1 Считать number2 Если number1 равно number2, то: square1 = number1 * number1 square2 = number2 * number2 sum_of_squares = square1 + square2 Вывести "Числа равны. Сумма их квадратов:", sum_of_squares Иначе: sum = number1 + number2 square_of_sum = sum * sum Вывести "Числа не равны. Квадрат их суммы:", square_of_sum
Вы можете реализовать данный алгоритм на языке программирования по вашему выбору.


Похожие вопросы
Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili