Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
БиологКоля
16.04.2021 09:06 •
Информатика
Водну и ту же числовую переменную последовательно вводятся целые числа. количесвто вводимых чисел заранее известно ( 0 - конец ввода). определить количество чисел не кратных 5.
Показать ответ
Ответ:
камилла326
01.07.2020 14:59
На паскале:
Var x,k:integer;
Begin
k:=0;
Repeat
Readln(x);
If (x mod 5 = 0) and (x<>0) then inc(k);
Until x=0;
Writeln(k);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
XMuhamedKinggX
03.04.2022 06:24
Даны высказывания: а = {5*5=25}, b = {5+5=11}. определить истинность высказываний: а, в, а& в, а̅, в̅, аvв, а→в, а↔в....
tashkaostrovska
28.09.2020 16:55
Составьте программу сложения двух простых дробей. результат должен быть несократимой дробью. используйте подпрограмму вычисления нод по алгоритму евклида. простая дробь задаётся...
volck223
21.08.2021 15:22
Переведите в двоичную систему счисления: 16410=...
dfghngh
21.02.2021 16:16
Решите в первом ответе вроде 39 ,а вот во втором не знаю ,проверьте и решите ,заранее ❤❤❤...
mczuf
02.09.2021 09:07
Дана строка текста слова разделены одним пробелом напечатать буквы входящие а)в исходный текст только один раз б) входящий в исходный текст не менее двух раз...
den4ik143
02.09.2021 09:07
1.розповідає цікавинки про котів друзям2.записує у читацький щоденниквідомості про котів3.шукає інформацію про котів4.вчить основні відомості про котів5.робить переклад тексту...
Tiiiddj
10.11.2020 02:27
Выпиши в правом окне все цепочки цыфр длины 4, составленные только из нулей м единиц...
vakumm765
10.11.2020 02:27
Паскаль random (50) найти: массив [0..20] сумма всех элементов максимальный элемент элемент=10...
Zxcvvn
10.11.2020 02:27
Мистер фокс хочет переставить буквы в строке рыжийфокс так, что если вычеркнуть буквы р, ы, ж, и, й, то оставшиеся буквы образуют слово фокс, а если вычеркнуть буквы ф, о, к, с,...
света9710
23.05.2021 05:30
Номер 1 составьте программу рисования 12 окружностей радиусом 25, с координатами центров окружностей: (25,100), (75,,100), (175,100), (575,100). номер 2 составьте программу рисования...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var x,k:integer;
Begin
k:=0;
Repeat
Readln(x);
If (x mod 5 = 0) and (x<>0) then inc(k);
Until x=0;
Writeln(k);
End.