Задания.ру
Анонимно
1 день назад

используя цикл “for”, “while”, repeat” найти сумму чисел от 10 до 50 кратных 3 или 5.

Ответ

Анонимно
var i,s:integer;
begin
for i:=10 to 50 do
if (i mod 3 = 0) or (i mod 5 = 0) then s+=i;
writeln(s);
end.

Новые вопросы по Информатике

Спортсмен в 1 день пробежал 10 км. Каждый следующий день он увеличил норму на 10%. За сколько день он пробежит 100км? Напишете программу через паскаль пожалуйста очень нужно
10 - 11 классы
3 минуты назад
Внутрь компьютерной папки можно поместить А)только файлы Б)только другие папки В)другие папки и файлы Г)не более 12 других файлов и папок
5 - 9 классы
5 минут назад
По контракту работнику причитается 48 евро за каждый отработанный день, а за каждый не отработанный день с него взыскивается 12 евро. Через 30 дней работник узнал, что ему ничего не причитается и он н...
Студенческий
7 минут назад
Вычислить число пи через разложение в ряд \pi/4 = 1-1/3+1/5-1/7+... = \sum_{k=1}^{\infty}{(-1)^{k+1}*\frac{1}{2*k-1} взяв 500 слагаемых
10 - 11 классы
8 минут назад
Процессор это устройство ввода или вывода информации?
5 - 9 классы
11 минут назад