Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
маша200620
10.02.2022 19:11 •
Информатика
Составьте блок схему алгоритма и программу подсчета количества чисел кратныx 7. числа вводятся с клавиатуры (признак окончания ввода число "0") язык паскаль желательно сделать на листочке и фотку кинуть ; )
Ответ:
Matvey1145
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 оценок)
Популярные вопросы: Информатика
ЧеловекАнанас
16.08.2021 04:10
Сделайте только внизу где буквы...
auntsgarder
30.01.2020 01:00
Что можно. назвать. одним из первых носителей информации ? 1)дискета 2)бумага. 3)флешка Носитель информации популярный в 1970 - 1990 годах?1) флешка2) диск3)дискетаНа...
крик56
28.01.2022 02:43
Соотнеси вкладки и их назначения. Количество связей: 3«Конструктор»изменение свойств объектана слайде«Формат»оформление всех слайдов ведином стиле«Переходы»Выбор эффектов...
xx5
17.01.2022 06:27
A=1if a +2 =a* 2:a=a+2else:a=a*2.print (a)...
kodir74
19.09.2021 01:42
Составьте проект для малковання шести прямоугольников с длинами сторон а i b шагов, размещенных друг под другом на расстоянии 10 шагов. Для задания значений переменных...
Моначка
20.03.2023 18:03
Короче,есть две команды: 1) прибавь 32) умножь на 2Нужно из числа 1 получить число 47 используя эти команды.ответ запишите,указывая лишь номера команд ( наприпер,программа...
Натали190997
13.10.2020 08:01
Передача данных в Интернет. Урок 2Изучи изображение и введис клавиатуры количество,входящих писем.Новое сообщениеПапки почтыВходящие(15)Отправлено(11)ЧерновикиСе Спам16.и...
bogdan345710
17.05.2023 02:30
Дан численный массив.Проверить есть ли в нем одинаковые элементы.Вывести на экран сообщения о наличие или отсутствии одинаковых чисел в массиве Посчитать и вывести сумму...
ikikaa54
24.06.2021 14:36
Какие команды можно использовать в Скретч?...
Ruslanchik111
11.02.2021 01:14
X = 1if x == 2:x = x+2x = x*2print(x)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.