Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
dggkfuh
17.04.2021 20:12 •
Информатика
Составьте блок схему алгоритма и программу подсчета количества чисел кратныx 7. числа вводятся с клавиатуры (признак окончания ввода число "0") язык паскаль желательно сделать на листочке и фотку кинуть ; )
Ответ:
Зайчонок512
06.07.2020 19:18
Var a,k:integer;
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
larson6909
12.01.2022 15:22
Информатика по фото декодировать текст...
kenzhegali1
17.12.2020 22:36
Какой самый мощный макбук в 2020? ...
Unicorn135
26.10.2022 05:02
Як створювати документи в текстовому процесорі та програмі для створення презентацій...
SerPol
17.05.2023 09:50
Як працювати з електронною поштою??...
10.12.2022 10:50
Сравните системные и прикладные программы по назначению...
aidos0278gmailcom
09.03.2023 16:44
Вопрос 1 К классификация по целевому назначению относятся? Выберите один ответ: 1. Сервис регистрации доменов 2. Сервисы обслуживания выделенных IP-адресов 3. Бизнес-ресурсы 4....
Kybe009
10.03.2020 08:48
Чем отличается Python от PyGame?...
fiasko2
05.02.2023 12:16
Сравнить внешнее строение и образ жизни земноводных и рептилий. найти признаки сходства и различия между ними...
SiperV2
05.02.2023 12:16
Синтаксический разбор предложения дорога к знаниям длинна, но прекрасна...
nastya261205
05.02.2023 12:16
Найти градусную меру угла,выраженного в радианах а) 2 б)3 в)0.36...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
end.