Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Маріямарія
27.12.2020 09:20 •
Информатика
Составьте программу вычисления суммы всех чисел кратных 4 и меньших 100
Ответ:
помогите5132
14.07.2020 13:24
Var i,a:integer;
begin
for i:=1 to 99 do
if i mod 4=0 then a:=a+i;
write (a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Алинка1984
21.07.2021 08:05
Массив А размером 10 заполняется случайными целыми числами из интервала (-100,50). Поменять местами первый элемент с последним положительным элементом. паскаль...
Khamovi
14.06.2021 22:13
Написать программу, которая вычислит площадь трапеции, по введенным основаниям и высоте, которая выведет сообщение является ли трапеция равнобедренной, боковые стороны вводятся...
grrra1
07.01.2023 07:35
: С кодовой таблицы ASCII декодируйте слова, заданные десятичными и двоичными кодами. 69 78 84 69 82 01001000 01001111 01001101 01000101...
HellyHopta
06.10.2021 06:52
A:=1, b:=1While a =32 do a:=a*2, b:=b*aWrite (b) ...
dVioletta
10.05.2023 01:54
Дан следующий алгоритм: шаг 1: x = 4, y = 29 шаг 2: если y+x 0, то x = x + 1 и y = y – 4, иначе перейти к шагу 4 шаг 3: перейти к шагу 2 шаг 4: напечатать x и закончить программу....
bauka077
29.06.2020 04:58
Сколько клавиш на клавиатуре компьютера использовала алина для набора фразы не мучайте детей интернетом (с наклоном, без кавычек) в текстовом редакторе, если для набора прописной...
heni2001
21.10.2020 01:46
Создать проект, в котором из списка чисел нужно удалить элементы, значения которых равны 35 или 65. Вывести на экран количество удаленных элементов и вывести обновленный список....
оьмдды
04.11.2020 03:40
Чим відрізняється додавання зображень у середовищах програмування PyCharm та Lazarus?...
Hydini
27.11.2020 02:22
Верны ли следующие равенства? a. 33₄=21₇ b. 33₈=21₄...
dashagokova20000000
21.02.2022 08:51
Носители информации 5 старых 5 новых , !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
for i:=1 to 99 do
if i mod 4=0 then a:=a+i;
write (a);
end.