Информатика, опубликовано 2018-08-22 21:02:36 by Гость
среди натуральных чисел, меньших некоторого n, вычислить сумму чисел, которые делятся на 3 и не делятся на 5. написаты програму на языке Паскаль.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на