Question

Дано три числа. Определите, сколько среди них двузначных чисел.

Answer 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.