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