Нужна с паскалем! напишите программу, которая получает - вопрос №7480640 от malkevich12 29.05.2022 13:53

Question

Информатика: Нужна с паскалем! напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке. входные данные входная строка содержит три целых числа, разделённых пробелами. выходные данные программа должна вывести количество одинаковых чисел из переданного ей набора или число 0, если все числа различные.

malkevich12 · Answer

Var   a,b,c,k:integer;Begink:=1;Read(a,b,c);if a=b then k:=k+1;if b=c then k:=k+1;if c=a then k:=k+1;if k=1 then k:=0else   if k=4 then k:=3;Write(k)End....