Составить программу выводящию значение true если указанное высказывание является истинным и false в противном случае среди чисел a, b, c есть хотя бы одна пара взаимно противоположных чисел на бейсике
121
363
Ответы на вопрос:
Rem пишу по памяти cls input "введи а" a; input "введи b" b; input "введи c" c; if a=-b or a=-c or b=-c then print "true" else print "false" end
var
Age : integer;
begin
Repeat
Write('Введите Ваш возраст: ');
Readln(Age);
until Age in [1..99];
if Age in [10..20] then Writeln('Мне ', Age, ' лет') else
case Age mod 10 of
1: Writeln('Мне ', Age, ' год');
2, 3, 4 : Writeln('Мне ', Age, ' года');
0, 5..9 : Writeln('Мне ', Age, ' лет');
end;
end.
Популярно: Информатика
-
AlCapone02508.01.2023 07:56
-
Camelia198022.05.2023 19:21
-
Гулзат111113.09.2021 01:28
-
еренйегер239816.09.2022 11:26
-
максим172026.06.2023 04:02
-
200619790987631.08.2020 13:35
-
Sashas1612.04.2020 21:57
-
kostinak3711.06.2022 02:52
-
Maksim20031631.03.2022 11:56
-
лунтик7224.06.2023 13:46