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

Найти сумму чисел от 0 до 50 кратных 6

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

валерия821

07.11.2020 03:54

Имеется садовый участок, имеющий форму прямоугольника со сторонами А метров и В метров. Составьте алгоритм и программу, которая определить сколько досок надо купить,...

4sasna

02.05.2023 11:43

Выдаёт вот такую ошибку в Сетевом городе при попытки прикрепить файл к сообщению... Кто-нибудь знает как исправить? Ошибка обращения к базе данных (The operating...

Timyr1020

01.10.2021 18:27

Если количество выполнений тела цикла неизвестно, то какой вид цикла не возможен: Укажите правильный вариант ответа: Цикл while Цикл repeat Цикл for...

samsamokruxa

28.10.2022 13:40

Ввести два целых числа a и b (a ≤ b) и вывести квадраты всех чисел от a до b ( язык Паскаль)через while...

vikarere7

26.08.2020 03:18

Напишите инструкции DOS для создания следующих элементов на диске C...

gehegeghegge

29.05.2020 21:23

Дано катети прямокутного трикутника. знайти площу трикутника і радіус кола, що вписано вцей трикутник /пайтон...

meshiydima

02.01.2022 06:31

Путем тождественных преобразований определить, на каких наборах данных логическая функция принимает значение 1 f=x₁×(не х₂) + (не х₁)×х₃ +(не х₂×х₃)...

Hah125

31.03.2020 16:43

Получить минимальную форму записи логической функции...

камилла731

10.10.2022 19:09

Определить значение переменной q, получаемого при выполнении следующего алгоритма...

КатяVL

23.09.2022 03:36

Дан стек символов. преобразовать стек, оставив в нем из группы подряд идущих символов только один - delphi procedure tform1.button4click(sender: tobject); var buff:...

Ответ:

Alexa2288

05.10.2020 01:11

Var
s,i: integer;
begin
s:=0;
for i:=0 to 50 do
if i mod 6 =0
then s:=s+i;
writeln ('S = ',s)
end.

S = 216

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку