программа на паскале. вводятся целые числа, не нулевые, конец ввода число 0. посчитать количество введенных трехзначных чисел.

Question

Информатика

Антонин

18 ноября, 02:03

программа на паскале. вводятся целые числа, не нулевые, конец ввода число 0. посчитать количество введенных трехзначных чисел.

+4

Ответы (1)

Знаете ответ на вопрос?

Галла · Answer 1

Может быть вот так, мы писали что-то похожее в классе, только по другому сформулировано

program Chisla;

var a, n:integer;

begin

writeln ('a = ', a) ;

readln (a) ;

if (a div 100 = 1) then inc (n) ;

writeln ('n = ', n) ;

end.

Прошу прощения, если не то ...