Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Vladislav45609
25.07.2021 13:12 •
Информатика
Составить программу вычисления суммы всех натуральных чисел меньше 100 и кратных b ( от1 до 100). нужно составить 1- с циклом с пред условием, 2 - с циклом с пост условием
Показать ответ
Ответ:
простоhhh
19.06.2020 09:12
1)
var sum:integer;
a,b:integer;
begin
a:=1;
readln(b);
for a:=1 to 99 do begin
if a mod b = 0 then
sum:=sum+a;
end;
writeln(sum);
end.
2)
var sum:integer;
a,b:integer;
begin
a:=1;
readln(b);
repeat
if a mod b = 0 then
sum:=sum+a;
inc(a);
until a=100
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
jfjjthvhhcj
30.07.2020 13:44
Дан массив, состоящий из 8 элементов. вычислить сумму положительных элементов массива. vba...
Lika1639
14.10.2020 23:14
1) Як можна демонструвати комп ютерні презентації? 2)Як створити гіперпосилання?3)З чим може бути пов язане гіперпосилання?4)Призначення кнопок дій(таблиця 2.7)5)Як додати до слайду...
Iriska91l23
08.12.2022 02:16
Коли зареєстровані сигнали стають інформацією а)під час передавання із джерела б)під час реєстрації даних в)коли ці дані використовує людина...
kusrik
08.12.2022 02:16
Выражено на определенном языке в виде знаков и записано на материальном носителе - это (9 букв)...
LyubovR
08.12.2022 02:16
Напишите программу, которая позволяет ввести три вещественных числа и выводит на экран: среднее первого и второго чисел. все вещественные числа должны быть выведены в форме с фиксированной...
natali251081
09.04.2023 02:47
Определи количество пикселей (суммарно). Запиши верный ответ. Разрешение монитора 256×192. Количество пикселей (суммарно) —...
Azimov1177
30.03.2021 13:21
Запиши верный ответ, если дан алгоритм: a1:=7/(29x) a2:=a1/x a3:=a2/x a4:=a3/x y:=a1+a4 ответ (для переменной используй латинскую раскладку):...
rjdfy
22.01.2020 08:07
Вкалориметр малой теплоёмкости поместили m1 =1,00 кг льда, имеющего температуру t1 = 0 градусов и m2 =1.70 кг воды при температуре t2 = 20 градусов. удельная теплота плавления льда...
Mihailo23
20.05.2023 20:10
Доберіть до слів синоніми з префіксом без- : сумний, широкий, тихий, жорстокий, лихий, дорогий, пустинний, сухий....
45df45
21.11.2020 16:09
При проверке склада готовой продукции мясо-консервного комбината было выявлено 8% мясных консервов «бомбаж». параметры микроклимата в помещении соответствовали норме, но испорченные...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var sum:integer;
a,b:integer;
begin
a:=1;
readln(b);
for a:=1 to 99 do begin
if a mod b = 0 then
sum:=sum+a;
end;
writeln(sum);
end.
2)
var sum:integer;
a,b:integer;
begin
a:=1;
readln(b);
repeat
if a mod b = 0 then
sum:=sum+a;
inc(a);
until a=100
writeln(sum);
end.