Ответы
Ответ дал:
1
Pascal:
program p1;
var k, a, b, c: integer;
begin
k:=0;
writeln ('Введите числа');
readln(a);
if a div 10 > 0 then k:=k+1;
readln(b);
if b div 10 > 0 then k:=k+1;
readln(c);
if c div 10 > 0 then k:=k+1;
writeln ('Количество двузначных чисел: ', k);
readln;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад