Navavbasr
6 год назад
Очень нужна помощь с Паскалем!Напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке.Входные данныеВходная строка содержит три целых числа, разделённых пробелами.Выходные данныеПрограмма должна вывести количество одинаковых чисел из переданного ей набора или число 0, если все числа различные.
ОТВЕТЫ
Минка
Oct 24, 2020
Var
a,b,c,k:integer;
Begin
k:=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:=0
else
if k=4 then k:=3;
Write(k)
End.
a,b,c,k:integer;
Begin
k:=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:=0
else
if k=4 then k:=3;
Write(k)
End.
92
Смежные вопросы:
