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>
Var
i, sum: integer;
begin
sum := 0;
for i := 23 to 49 do if (i mod 7 = 0) and (i mod 2 = 0) then sum := sum + i;
writeln(sum);
end.
1. 4+1 = 5 (7)
2. 5*2 = 10 (8)
3. 10+1 = 11 (7)
4. 11*2 = 22 (8)
5. 22+1 = 23 (7)
6. 23*2 = 46 (8)
7. 46+1 = 47 (7)
8. 47*2 = 94 (8)
var
a: integer;
b: real;
begin
writeln ('введи целое число');
read (a);
if a mod 2=0 then b:=a/2
else
b:=a*a*a;
writeln ('результат',b);
end.
Для сравнения чисел между собой исп. функция ЕСЛИ.
Чтобы вывести оба числа (получается, они как бы превращаются в одно число?) - исп. функция Сцепить.
Вместо 1 число, 2 число, можешь написать Х, У.
Вообще, очень похоже, что эту задачу задавали для решения на языке программирования, а не в электронных таблицах. В программировании обычно в начале описывают, какого типа входные данные. Здесь они действительные, т.е. тип real.