Utilizand instructiunea for,scrieti un program care calculeaza pentru primii n termeni suma s=1pe1+1pe2+1pe3+...+1pe n si produsul p= 1pe1x1pe2x1pe3x...x1pe n (x este inmultit) Va rog mult”
Мы используем cookie-файлы, чтобы улучшить сервисы для вас. Если ваш возраст менее 13 лет, настроить cookie-файлы должен ваш законный представитель. Больше информации
Комментарии 72
var i,n,s,p:longint;
begin
read(n );
s:=0; p:=1;
for i:=1 to n do
if i mod 2= 0 then
begin
s:=s+i;
p:=P*i;
end;
write(s,' ',p);
end.
type LongInt = -2147483648..2147483647;