написать программу которая обретает сумму чисел которые делятся на 3 ,

Написать программку которая находит сумму чисел которые делятся на 3 , для первых n естественных чисел . число n вводится с клавиатуры . выполнить программку для n=50 записать итог.

Задать свой вопрос
Диана Кузубова
На каком языке программирования надо?
1 ответ
Var n,i:byte; sum:integer;
begin
writeln('Введите количество чисел');
readln(n);
sum:=0;
for i:=1 to n do
if i mod 3=0 then sum:=sum+i;
writeln('Сумма=',sum);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт