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

Написать программу распечатывающую сумму всех чисел кратных 3 от 10 до 20

Показать ответ

Ответ:

NastushaJol

08.10.2020 06:41

Var i,n,a:integer;
a:array[1..100] of integer;
begin
for i:=10 to 20 do
if a[i] mod 3=0 then writeln(a[i]);
end.

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

Ответ:

Kok1n

08.10.2020 06:41

Var i,n,s:byte;
begin
s:=0;
for i:=10 to 20 do
if (i mod 3=0) then s:=s+i;
write(s);
end.

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

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

vikasaaan

06.05.2021 10:57

Поступает последовательность целых положительных чисел, 0 - конец последовательности. записать каждое число последовательности в обратном порядке. например, 12345 - 54321. создать...

dihochi

11.04.2022 06:18

Создать базу данных , выполнить все пункты ( спортсмены могут быть любые , главное выполнить)...

geracim1

27.11.2022 18:28

Скажите вот я купил игру в стиме за 3000 руб. будет ли эта игра работать если у меня украли аккаунт в ...

Sone4ga

02.11.2021 03:37

Создайте граф арифметического выражения (x^x^9+15/4)/3+8/x. в листьях могут быть только числа и х, в качестве узлов-предикатов могут выступать узлы +, -, *, /, ^ (циркумфлекс, операция...

anonim869

02.06.2021 04:44

Напишите программу на ассемблере (tasm). даны натуральное число n, символы s1, s2, sn. преобразовать последовательность s1, s2, sn, изменив в ней все восклицательные знаки на точки....

анель106

24.02.2022 03:37

Собьяснением 2 № 17320 добавить в вариант логическая функция f задаётся выражением ((x ∧ y) ∨ (y ∧ z)) ≡ ((x → w) ∧ (w → дан частично заполненный фрагмент, содержащий неповторяющиеся...

2006лера

27.11.2020 01:04

1) написать программу, определяющую коды букв в слове бит. 2) запишите программу, которая определяет и выводит на экран символы, коды которых равны 119, 114, 105, 116, 101. составить...

дильназ149

26.09.2021 07:50

Описать структуру с именем kafedra, содержащую следующие поля: nazv – название кафедры, data – дата образования, sort – сотрудники кафедры (массив из 14 строк). написать программу,...

апк8

19.03.2021 10:32

3. yn = (1/n)*yn−1+(1/n^2)*yn−2, y1 = 0.9, y2 = 1.1 ha c++...

коля827

17.02.2020 09:27

Скажите. в microsoft store рядом со словом бесплатно стоит * что это значит?...

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

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