PASCAL Напишите программу, которая в последовательности натуральных чисел находит количество отрицательных чисел, кратных 10. Программа получает на вход натуральные числа, количество введенных числе неизвестно, последовательность чисел заканчивается числом -100 (минус 100). Задачу решить циклом While.
PASCAL Напишите программу, которая в последовательности натуральных чисел находит количество отрицательных чисел, кратных 10. Программа получает на вход натуральные числа, количество введенных числе неизвестно, последовательность чисел заканчивается числом -100 (минус 100). Задачу решить циклом While.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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.