Даны 3 числа абс найти количество чисел, значения которых меньше 10

Напишите вот само решение

Там:

VAR

A, B, C: înteger

degin;

и так далее

Не могу решить, люди, будьте добры, помогите

Question

Информатика

Каллистрат

5 марта, 11:07

Даны 3 числа абс найти количество чисел, значения которых меньше 10

Напишите вот само решение

Там:

VAR

A, B, C: înteger

degin;

и так далее

Не могу решить, люди, будьте добры, помогите

+2

Ответы (1)

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

Игуля · Answer 1

Var a, b, c, k: integer;

begin

k:=0;

readln (a, b, c) ;

if a<10 then k:=k+1;

if b<10 then k:=k+1;

if c<10 then k:=k+1;

writeln ('Количество чисел, меньших 10 = ', k) ;

readln;

end.

Даны 3 числа абс найти количество чисел, значения которых меньше 10Напишите вот само решениеТам:VARA, B, C: întegerdegin;и так далееНе могу решить, люди, будьте добры, помогите