Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
NikroManSky
21.12.2021 12:07 •
Информатика
Циклы найти количество двухзначных чисел,делящихся на 7.
Показать ответ
Ответ:
0Человек0
05.10.2020 07:55
//прога на Pascal`e
var
i, count: byte;
begin
for i:=10 to 99 do
if (i mod 7) = 0 then inc (count);
write (count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
svperkova80
20.06.2021 07:19
Як кодуються звуки природної мови?...
samirdebilGost
26.12.2021 15:57
Выбрать один объект и разобрать на четыре вида это свойства действия поведения и состояния...
diekaaaaa
02.06.2020 13:00
Перевести с pascal в c# uses crt;var s1,s2,s3: string; ch: char;function Kol(c: char; s: string):byte;var i,k:byte;begink:=0;for i:=1 to length(s) do if upcase(s[i])=upcase(c)...
alina2015a
13.12.2021 22:43
Где применяются облачные технологии....
его18
15.02.2020 01:41
Страница 9-10 задание 8 и...
karina072006
26.05.2020 15:18
ну меня убъют если не сделаю через 10 мин ...
tamila2002саша2004
29.04.2021 17:34
C++вычислить и вывести на экран...
Vindrosel
06.11.2021 14:22
операторы do используются для организации циклических расчетов цикл-это последовательность операторов, которая может выполняться автоматически более одного раза. если количество...
MashaBendyuk
11.09.2022 07:45
1. К блоку СТАРТ добавь блок Ожидание. Измени режимдатчика для получения информации: Датчик цвета -Сравнение =Цвет.В параметр блока размести зеленый цвет.к блоку Ожидание добавь...
gulnazira2005
24.02.2020 14:07
Студент Колесников Николай приобрел в специализированном магазине один экземпляр компьютерной программы. Лицензионный договор продавец не оформил, сказав, что он указан на упаковке...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i, count: byte;
begin
for i:=10 to 99 do
if (i mod 7) = 0 then inc (count);
write (count);
end.