Var n,i,s:integer;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 30
Поставь чувствительность мышки (я так поняла ты о DPI, CPI(одно и то же)) на 100
Ответ:
[Как ухаживать за домашними кошками -крупные -покупка -продажа]
Объяснение
[Как ухаживать за домашними кошками -крупные -покупка -продажа]
Var
a: array[1..10] of integer;
i, p, s: integer;
begin
for i:=1 to 10 do
readln(a[i]);
p:=1; s:=0;
for i:=1 to 10 do
begin
p:=p*a[i];
inc(s, a[i]);
end;
writeln(s);
writeln(p);
<span>end.</span>