Предмет: Информатика,
автор: Unquestionable
найти сумму чисел кратных 6 и оканчивающихся на 4 из последующих натуральных чисел ( к<= 1000; a<3000)
вауываув:
На си или паскале?
Ответы
Автор ответа:
1
var
i,a:integer;
s:real;
begin
for i:=1000 to 3000-1 do
if (i mod 6=0)and(i mod 10=4)then
begin
write(i,' ');{это чтобы посмотреть на числа, эту строку можно убрать}
s:=s+i;
end;
writeln;
writeln('S= ',S);
end.
i,a:integer;
s:real;
begin
for i:=1000 to 3000-1 do
if (i mod 6=0)and(i mod 10=4)then
begin
write(i,' ');{это чтобы посмотреть на числа, эту строку можно убрать}
s:=s+i;
end;
writeln;
writeln('S= ',S);
end.
Похожие вопросы
Предмет: Русский язык,
автор: Эльтунaz
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: Dianа123
Предмет: Математика,
автор: uwums
Предмет: Математика,
автор: Aqeev900