Даны 3 числа абс найти количество чисел,значения которых меньше 10
Напишите вот само решение
Там:
VAR
A,B,C: înteger
degin;
и так далее
Не могу решить,люди,будьте добры,помогите
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад