Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>
Первый вариант линейки разработал английский математик-любитель Уильям Отред в 1622 году.
Объяснение:
во вложениях.....
^ у меня не ставится, но выполняет свои действия, у себя его ставьте!
начало
1 Взять котёл.
2 Налить воду в ведро
3 Перелить воду из ведра в котёл.
4 Развести огонь
5 Поставить котёл на огонь.
6 Взять топор
7 Положить топор в котел.
8 Найти крупу
9 Добавить крупу в котел
10 Достать чистую посуду
11 Снять котёл с огня.
12 Положить получившуюся кашу в посуду.
13 Найти масло
14 Добавить в кашу масло
конец
Var ar:array[1..10] of integer;
k,i,m:integer;
begin;
randomize;
k:=1;writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(0,15);
if odd(i)=false then k:=k*ar[i];
write(ar[i]:4);
end;
writeln;
writeln('Result:',k);
if odd(k) then writeln('Yes') else writeln('No');
end.
<span>
//Мала вероятность того, что вернёт Yes, поэтому прикрутил Result
Вывод с 300-400 запуска:
Array:
9 15 8 15 5 3 0 15 3 9
Result:91125
Yes<span>
</span></span>