Даны 3 двухзначных числа. Выяснить, сколько из них начинаются цифрой 7?

Question

Информатика

Витуша

28 февраля, 00:23

Даны 3 двухзначных числа. Выяснить, сколько из них начинаются цифрой 7?

+4

Ответы (1)

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

Ромаха · Answer 1

Const

n=3;

var

x, i, count: integer;

begin

for i:=1 to n do

begin

read (x) ;

if (x div 10) = 7 then inc (count) ;

end;

writeln (count) ;

end.

Проверка работы:

Введенные данные:

56 76 73

Вывод:

2