PASCAL
Напишите программу, которая в последовательности натуральных чисел находит количество отрицательных чисел, кратных 10. Программа получает на вход натуральные числа, количество введенных числе неизвестно, последовательность чисел заканчивается числом -100 (минус 100).
Задачу решить циклом While.
Напишите программу, которая в последовательности натуральных чисел находит количество отрицательных чисел, кратных 10. Программа получает на вход натуральные числа, количество введенных числе неизвестно, последовательность чисел заканчивается числом -100 (минус 100).
Задачу решить циклом While.
More Questions From This User See All
Answers & Comments
n,k:integer;
loop:boolean;
begin
Writeln('Введите целые числа, окончание ввода по числу -100');
k:=0;
loop:=true;
while loop do
begin
Read(n);
loop:=(n<>-100);
if loop then
if (n<0) and ((n mod 10)=0) then Inc(k)
end;
Writeln('Количество отрицательных чисел, кратных 10, равно ',k)
end.
Тестовое решение:
Введите целые числа, окончание ввода по числу -100
40 52 -23 16 1000 -240 35 6 0 -20 7 -100
Количество отрицательных чисел, кратных 10, равно 2