Предмет: Информатика,
автор: zindi
среди натуральных чисел, меньших некоторого n, вычислить сумму чисел, которые делятся на 3 и не делятся на 5. написаты програму на языке Паскаль.
Ответы
Автор ответа:
0
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 5<>0) then sum:=sum+i;
write(sum);
end.
Похожие вопросы
Предмет: Обществознание,
автор: ReyTi1
Предмет: Окружающий мир,
автор: lilya1983k
Предмет: Алгебра,
автор: Аноним
Предмет: Алгебра,
автор: PepsimaXD