PASCAL Напишите программу, которая в последовательности натуральных чисел находит количество отрицательных чисел, кратных 10. Программа получает на вход натуральные числа, количество введенных числе неизвестно, последовательность чисел заканчивается числом -100 (минус 100). Задачу решить циклом While.

Предыдущий
вопрос Следующий
вопрос

program CountNegativeMultiplesOfTen;
var
num, count: integer;
begin
count := 0;
writeln('Enter a sequence of natural numbers. Enter -100 to end the sequence.');
readln(num);
while num <> -100 do
begin
if (num < 0) and (num mod 10 = 0) then
count := count + 1;
readln(num);
end;
writeln('The number of negative numbers, multiples of 10: ', count);
end.