Регистрация
9854123g
13.12.2022 01:38
Информатика
Есть ответ 👍

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

300
500
Посмотреть ответы 2

Ответы на вопрос:

матеки
матеки
4,4(86 оценок)

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.

rtrc2002
rtrc2002
4,7(24 оценок)
Это все ты неправильно

Написала

Напиши хорошо

Популярно: Информатика