logo
Войти Регистрация Спроси ai-bota


dasha1975
23.02.2023 10:24

Написати програму на турбо паскаль,для обчислення суми чисел кратних трьом,які не більше 100.

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
agasan420
agasan420
15.07.2021 11:21
Написать код на паскале, который выполняет следующие условия если x 0 c=x*y^2 если x 0 c=x-y если x=0 c=x+y...
Urjdifk135
Urjdifk135
01.07.2020 12:46
ответьте на вопросы: Напишите, в каких символах выводится текст в программе? [1] Напишите, как записывается операция нахождения остатка от деления? [1]...
anavidyan920
anavidyan920
24.01.2022 12:54
Каковы атрибуты тега video 1. loop 2.poster 3.border 4.autoplay 5.smap...
Дора18119
Дора18119
27.04.2020 01:36
1. Отметьте условия, записанные на языке Python правильно. 1) a ≥ 02) x = 33) x 0 or y 04) c ≠ 05) a =! b6) -5 a 107) x 0, y 08) a 10 и b 59) x== 610) x = y = z11)...
Оля142768
Оля142768
31.08.2022 06:42
) Создайте многоуровневый список (ul, li). Реализуйте выбор дочерних элементов списка: при клике мышкой на любой элемент списка он должен менять свой цвет. При повторном...
Арсенал11
Арсенал11
27.08.2020 00:01
Сделайте сильно надо. заранее последнее третье надо сделать. графы если что...
Машка4155
Машка4155
07.03.2021 09:36
Вывести на экран столько элементов ряда фибоначчи, сколько указал пользователь. например, если на ввод поступило число 6, то вывод должен содержать шесть первых чисел...
111Ботаник111
111Ботаник111
09.01.2020 15:42
с Тестом15A.kitchenB.Police station C.Bathroom16A.AiroportB.Train stationC.Market17 A.yellovB.Pink C.Chair18A.PencilB.TelephoneC.Fax19A.JacketB.UmbrellaC.Dress20A.ButchersB.Shoe...
wifaretaba
wifaretaba
10.03.2020 20:31
Які уроки може винести сучасна Україна з нетривалої історії існування незалежної Карпатської України у сфері внутрішньої і зовнішньої політики...
ulzhalgasamangEldy
ulzhalgasamangEldy
31.01.2023 17:19
Знищити на городі такий бурян як хвощ польовий важко через те що:а)його кореневища розташовані глибоко в грунтіб)довгі кореневища містяться у верхніх шарах грунту...
Ответ:
laurenR
06.07.2020 08:23
Var s,i:integer;
begin
for i:=3 to 100 do
  if i mod 3=0 then s:=s+i;
write('Сумма: ',s);
readln
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота