Даны два вещественных числа a и b, если сумма этих чисел больше 35, то увеличить их в 4 раза иначе уменьшить в 2 раза. Программа паскаль
195
464
Ответы на вопрос:
program vld;
var
a,b : real;
begin
writeln('Введите 2 числа: ');
readln(a,b);
if a+b >35 then
begin
a := a *4;
b := b * 4
end
else
begin
a := a / 2;
b := b / 2;
end;
writeln(a);
writeln(b);
end.
Популярно: Информатика
-
alinastoyka08.01.2021 09:28
-
Вика2006a02.03.2020 20:30
-
sofitit041007.01.2022 16:02
-
Ztduvuycc26.08.2022 17:28
-
enigma7503.12.2020 10:49
-
0ForeverUnicorn028.10.2020 18:32
-
nickolaimatviip0c00u04.05.2020 04:15
-
chief507.03.2023 23:35
-
софия73018.10.2021 15:10
-
Софийка64643631.05.2020 22:52