tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дана бесконечная последовательность
Дана бесконечная последовательность определит количество и сумму чисел этих последовательности который делится на 5 окончание последовательности равно 0
Merser2212
2 02.06.2019 13:40
0
Ответы
ferid9098
01.10.2020 17:11
Var numb,count:integer;
begin
readln(numb);
while numb<>0 do
begin
if (numb mod 5 = 0) then
count:=count+1;
readln(numb);
end;
writeln(count);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
baxrom2
08.06.2019 19:00
Вычислить сумму квадратов n четных натуральных чисел...
vyzgavalja1956
08.06.2019 19:00
Божья коровка в течение дня поднимается по столбу на 5 м, в течение ночи-опускается по нему на 3м. подъём она начинает утром. высота столба 15м.через сколько дней божья коровка...
Irkuzmina
08.06.2019 19:00
Автомат получает на вход трёхзначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются два числа – сумма старшего...
gurgurov68
25.05.2019 02:30
По информ. выполните умножение двоичных чисел: 101010*10101 и сложение двоичных чисел: 110110111+1000111 заранее =)...
FfffdZb
25.05.2019 02:30
Напишите программу ввода трех величин (а,в,с) на одной строке,рассчитайте и выдайте на экран на отдельной строке значение выражения: ав/3,14 + 3c...
MrEvgeniy1
25.05.2019 02:30
Машина тьюринга. решить. a={a,b,0,1}. определить, является ли слово p идентификатором (непустым словом, начинающимся с буквы). ответ: слово a (да) или пустое слово (нет)....
5454540
25.05.2019 02:30
Какое минимальное основание должна иметь система счисления, чтобы в ней можно быдо записать числа 32 и 76? заранее =))...
polinaandreeva9
12.02.2022 00:34
Задача.Серед усіх двох значних чисел знайти суму чисел які кратні 3 (зробити в програмі Python)...
milenaborowik
04.09.2019 18:50
Даны два с сопротивлением r1 и r2,соединённых параллельно,найти общее сопротивление резистер 2.записать формулу определяющая значение силы тока,если известно напряжение слти,и...
holodovika
20.07.2019 22:00
Вычислить сумму 3/5+8/10+13/15++998/1000 в паскале...
Популярные вопросы
Дана арифметическая прогрессия (an). Известно, что a1=1,2 и d=0,3. Вычисли...
3
Зачет по теме «Линейная функция» 1.Уравнение прямой линии имеет вид у =...
3
не решать. Во всех номерах, кроме №1 прописать решение.)...
2
Дополните письмо нижеследующими словами и фразами. Переведите письмо на...
1
Какое количество теплоты необходимо, чтобы превратить в пар 250 грамм эфира,...
3
синтаксический разбор слова позволяюь людям объединять собственный, личный...
1
Найти предел числовой последовательности: (n^2-4)/n^3...
2
Будь ласка до ть з домашнім завданням! складіть всі можливі перестановки...
1
Гласные в суффиксах и окончаниях после шипящих и Ц (О или Е)Девч..нка, реч..нька,...
3
Вырази аргументированно своё мнение о городской жизни в Румынии в межвоенный...
2
begin
readln(numb);
while numb<>0 do
begin
if (numb mod 5 = 0) then
count:=count+1;
readln(numb);
end;
writeln(count);
end.