Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
345160
17.04.2023 19:07 •
Информатика
Составьте блок схему алгоритма и программу подсчета количества чисел кратныx 7. числа вводятся с клавиатуры (признак окончания ввода число "0") язык паскаль желательно сделать на листочке и фотку кинуть ; )
Показать ответ
Ответ:
nikitinaalens78
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 оценок)
Популярные вопросы: Информатика
fofanz
11.07.2020 19:15
Полное имя некоторого файла c: \music\rock\wasp\song.mp3. пользователь переместился на 2 уровня вверх и создал подкаталог best. какое полное имя будет у указанного файла,...
lenavinnik80
31.01.2023 15:34
Сканируется цветное изображение размером 15,24х15,24 см. Разрешающая сканера 600 х 600 dpi,глубина цвеьа 16 бита. какой информационный объем будет иметь полученный графический...
наргиз68
10.05.2021 11:14
Запусти Паскаль и введи программу:...
nikamalisch
28.02.2022 16:28
Как зделать в скрэйче 2 из книжки Босовой 6 класс задание 8 с.118...
AlexIQ161
18.05.2022 10:05
5*. Дан радиус окружности. Составь программный код, кото- рый определит длину окружности (L) и площадь круга (S). Здесьп= 3,14 (рис. 2)....
vul654
14.01.2020 15:43
5 Напишите полный программный код, используя блок-схему: Блок-схема Программный код Начало a, b Sa a=b b=s O COP 8.3.A a, b Конец Г нй (Казахстан)...
VadimShoppert
15.04.2023 20:09
18.Проверить, является ли заданное 4-х разрядного натуральное число, удовлетворяющим следующим условиям: число не оканчивается на 0 и 2 вдесятичной записи....
poolliinnaa
04.01.2023 03:08
1. Составьте для Робота алгоритм прохода из точки А в точку В по лабиринту, изображенному на рисунке....
666Luc666
10.01.2023 19:28
Выберите правильный вариант вывода на экран значений переменной z * write(z) print(z) input(z) math(z) Найдите значение переменной k, если d=1, n=3, k=abs(d-n) * 4 5...
stupid28
25.09.2021 21:27
18. Проверить, ЯВЛяется ли заданное 4-х разрядного натуральное число, Уокетворяющим следующим условиям: число не оканчивается на 0 и 2 вДесятичной записи, ,. ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
end.