• среди натуральных чисел, меньших некоторого n, вычислить сумму чисел, которые делятся на 3 и не делятся на 5. написаты програму на языке Паскаль.

Ответы 1

  • uses crt;var a:array[1..1000] of integer; i,n,sum:integer;beginwrite('Введите число: ');read(n);for i:=1 to n-1 do if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;write(sum);end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years