tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Скласти програму знаходження
Скласти програму знаходження суми цілих додатних чисел кратних 4 і менше 50
anma2
3 26.05.2019 03:40
7
Ответы
zero161
22.06.2020 12:21
Program Zadacha;
Const c = 4; max = 50;
Var a, b: Integer;
Begin
a := c;
While a < max Do
Begin
If a Mod c = 0 Then
b := b + a;
a := a + 1;
End;
WriteLn('Сума чисел, кратних ', c, ' і менше ', max, ' становить ', b);
ReadLn;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kondratenkoari1
08.06.2019 08:00
Кассир забыл пароль к сейфу, но помнил алгоритм его получения из строки «ayy1yabc55»: если последовательно удалить из строки цепочки символов «yy» и «abc», а затем поменять...
катя4802
08.06.2019 08:00
1. определение «операционная система». классификация ос. 2. файловая структура. 3. операции с файлами и папками. 4. архивация данных. основные форматы упаковки данных....
daniil10457899Yb
08.10.2019 04:50
Напишите программу на языке паскаль. 1. напишите программу с использованием вложенных циклов, выводящую на экран символы * по шаблону. размер треугольника из звездочек задается...
tany19821
08.10.2019 04:50
3. исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный момент известно положение исполнителя и направление его движения....
aalenka471
08.10.2019 04:50
Требуется определить, является ли данный год високосным. (напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) входные...
Тень2253
05.04.2021 04:03
Які можуть бути портфоліо°друковані°повні°переліком°електронні...
Sakinatabdylaeva
08.04.2020 09:56
Назвать самый маленький объект таблицы...
Анастасияпрофи1
03.09.2021 22:29
Які технології використовують в аграрному, індустріальному суспільстві. А які в інформаційному? Порівняйте....
Angelina781
03.09.2021 22:30
Задание в файле задание и сам текст для форматирования, очень...
Надежда1класс
07.12.2020 11:54
По линии каких рек шло заселение Восточно-Европейской (Русской) равнины?...
Популярные вопросы
2. Для пошиття одного плаття потрібно 2м тканини. Скільки плать можна пошити...
2
Подпишите цифры, указанные на рисунке...
2
Ex1 Change the sentences into Passive1.I`m cleaning the house. 2.She visited...
3
Порівняльна таблиця Кирило-Мефодівського брацтва та Руської трійці...
1
Визначною пам яткою історії та культури є пам ятник Богдану Хмельницькому...
1
Выписать синонимы Казакстанда ауанын температурасы 1936 жыл мен саластырганда...
2
Табличная информационная модель представляет собой: набор графиков, рисунков,...
1
1. Какое число называют корнем (решением) уравнения? 2. Что значит решить...
3
Алыстағы досыңа ат берсең де жарасар - үйіне мініп барсын деп. Жақындағы...
1
У результаті зневоднення кристалогідрату натрій сульфіту його маса зменшилася...
1
Const c = 4; max = 50;
Var a, b: Integer;
Begin
a := c;
While a < max Do
Begin
If a Mod c = 0 Then
b := b + a;
a := a + 1;
End;
WriteLn('Сума чисел, кратних ', c, ' і менше ', max, ' становить ', b);
ReadLn;
End.