Найти сумму(S) и произведение (P) всех чисел от 1 до 100 кратных 3
Найти сумму(S) и произведение (P) всех чисел от 1 до 100 кратных 3
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Var S,P,i: Integer;
Begin
P:=1;
S:=0;
for i:=1 to 100 do
begin
if (i mod 3 = 0) then
begin
S:=S+i;
P:=P*i;
end;
end;
Writeln ('S = ' , S);
Writeln ('P = ' , P);
Readln;
End.