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

Question

Информатика

Маргоша

14 апреля, 10:14

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

+4

Ответы (1)

Знаете ответ на вопрос?

Камилка · Answer 1

uses crt;

var

a:array[1 ... 1000] of integer;

i, n, sum:integer;

begin

write ('Введите число: ') ;

read (n) ;

for i:=1 to n-1 do

if (i mod 3=0) and (i mod 50) then sum:=sum+i;

write (sum) ;

end.