Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
При перемещении формулы =A$6+$D8 из ячейки C4 в ячейку E1 она трансформируется в формулу =C$6+$D5
Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
<span>end.
Жду спасибо)</span>
3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end.
V=WxHxn
256=2^8
2^8=2^n
n=8
V=100*500*8=400000
V2=WxHxn2
16=2^4
2^4=2^n
n=4
V2=100*500*4=200000
Объем уменьшился
V/V2=2(в два раза)
V-V2=20000(на 200000)