Предмет: Информатика, автор: Unquestionable

найти сумму чисел кратных 6 и оканчивающихся на 4 из последующих натуральных чисел ( к<= 1000; a<3000)


вауываув: На си или паскале?
mnv1962: Язык какой?
mnv1962: Тогда пишу на Паскаль
Unquestionable: спасибо, вы мне жизнь спасли, люблю вас:*
mnv1962: Я рада, что вы будете жить!!!!

Ответы

Автор ответа: mnv1962
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.


Похожие вопросы
Предмет: Математика, автор: uwums