Напишите программу, которая в последовательности естественных чисел определяет количество трёхзначных чисел,
Напишите программку, которая в последовательности естественных чисел определяет количество трёхзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел кончается числом 0 (0 признак окончания ввода, не входит в последовательность). Количество чисел не превосходит 1000. Введённые числа не превосходят 30 000. Программка обязана вывести одно число: количество трёхзначных чисел, кратных 4. Напишите программку в паскале пожайлуста.
Задать свой вопрос1 ответ
Виталя
var
k: integer;
i: integer;
n: integer;
begin
k := 0;
for i:= 1 to 1000 do
begin
readln( n );
if n = 0 then break;
if (ngt;=100) AND (nlt;=999) AND (n mod 4 = 0) then k:= k+1;
end;
writeln( k );
end;
Строчкой "for i:= 1 to 1000 do" организовывается цикл, в котором будет принята последовательность чисел количеством до 1000 частей.
Строка "readln( n );" считывает в переменную "n" натуральное число.
Если введенное число одинаково "0", то строчка "if n = 0 then break;" заканчивает цикл и переходит к выводу результата.
В строке "if (ngt;=100) AND (nlt;=999) AND (n mod 4 = 0) then k:= k+1;" проверяется, трехзначное ли число (т.е. его значение от 100 до 999 включительно) и кратно ли оно четырем. Если производятся все эти условия, то увеличивается счетчик "k".
В конце, после выхода из цикла строчка "writeln( k );" выводит итог.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов