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

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

Ответ:

Can4ez73

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 оценок)

Популярные вопросы: Информатика

alexeyy2012

17.12.2020 13:42

Составить программу, которая обеспечит ввод 15 чисел и определит сколько из них отрицательных, которые кратны 3....

soffi2006

01.10.2022 10:27

Напишите блок-схему ! найти среднее арифметическое четных элементов в массивах а(15) и с(9) из интервала [10; 30] program lr1; const n=9 ; m=15; type massiv=array...

Ivangggg

01.10.2022 10:27

Дан двумерный масив заполнить змейкой 12 24 120 2 14 110 1 13 109...

askerova1408

02.10.2020 01:52

Друг познается беде на двоичном коде...

Coova

02.10.2020 01:52

Составить алгоритм вычисления его треугольника площади зная три его стороны...

льоха7

02.10.2020 01:52

Даны пути одной файловой системы c: /экзамен/фото/ф1.doc c: /экзамен/ф2.doc c: /экзамен/ф1.bmp c: /экзамен/фото/ф3.bmp c: /фото/ф4.doc из корневого каталога c: /файл...

ressopli345

02.10.2020 01:52

На таймере цифрового устройства, ведущем обратный отсчет секунд, можно устанавливать любое начальное количество секунд. кроме того, по истечении любой очередной секунды...

lavira3

02.10.2020 01:52

Даны время (два целых числа – часы и минуты). вывести время суток. будем считать, что: утро – от 6: 30 до 10: 00 ; день – от 10: 01 до 16: 30 ; вечер – от 16: 31...

антонl

06.08.2021 02:28

Файловая система это а) системная программа б) вложенная структура файлов в) вложенная структура папок г) вложенная структура файлов и папок...

LolGameHD

06.08.2021 02:28

Решите это по информатике a^b v a^b...

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

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