Напишите программу в паскале, которая получает три числа и выводит количество натуральных одинаковых чисел в этой цепочке. пример: введите три чила: 5 5 5 все числа одинаковые.
119
492
Ответы на вопрос:
Если в три переменные: var a,b,c: integer; begin writeln ('введите 3 числа'); read (a,b,c); if (a=b)or (a=c) or (b=c) then begin if (a> 1) and (b> 1) and (c> 1)and (a=b) and (a=c) and (b=c) then //одно ненужное условие для наглядности writeln ('все числа одинаковые'); if ((a> 1) and (b> 1) and (a=b)) or ((a> 1) and (c> 1) and (a=c)) or ((b> 1) and (c> 1) and (b=c)) then writeln (2); end else writeln ('нет одинаковых чисел'); end.
Дано: 1024 символа 32 символа-состав 1024/8=128=2^7=> 1 символ 7 бит значит 32*7=224 бита
Популярно: Информатика
-
blablabla4323.09.2022 11:14
-
Viktoria001111.07.2021 01:12
-
hupri0519.06.2022 08:43
-
SharkiLoge25.11.2022 16:01
-
alexvelova05.01.2023 05:41
-
Zagitova11210.03.2022 16:54
-
ltimofienko10.07.2021 04:53
-
manoco30.09.2020 19:25
-
ayvazova201029.08.2020 23:11
-
Alyyya07.02.2022 08:29