Составить рограмму на языке паскаль:

Введите 3 числа и выведите колличество одинаковых чисел в этой цепочке (может быть 3 или 2 или 0). Помогите!

Question

Информатика

Джуниор

7 ноября, 09:28

Составить рограмму на языке паскаль:

Введите 3 числа и выведите колличество одинаковых чисел в этой цепочке (может быть 3 или 2 или 0). Помогите!

+2

Ответы (1)

Знаете ответ на вопрос?

Арташа · Answer 1

program a1;

var

a, b, c: integer;

begin

writeln ('Введите три числа') ;

readln (a, b, c) ;

if a = b then

if a = c then Write (3)

else Write (2)

else

if (a = c) or (b = c) then Write (2)

else Write (0)

end.

Составить рограмму на языке паскаль:Введите 3 числа и выведите колличество одинаковых чисел в этой цепочке (может быть 3 или 2 или 0). Помогите!

Составить рограмму на языке паскаль:

Введите 3 числа и выведите колличество одинаковых чисел в этой цепочке (может быть 3 или 2 или 0). Помогите!