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

Question

Информатика

Машура

22 октября, 00:19

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

+5

Ответы (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.

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