kamilanurganbay
10.08.2020 13:42

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ИзмМалика
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 оценок)
Ответ:
Карпыч1
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота