Var n,i,s:integer;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do
if i mod 2 =0 then s:=s-i else s:=s+i;
writeln('s = ',s);
end.
Пример:
n = 10
s = -5
var
s:string;
begin
read(s);
writeln(UpperCase(s));
end.
Эти предметы являются объемными. Их грани имеют форму прямоугольника(или квадрата), противоположные грани равны. Это все видно из чертежа параллелепипеда
У Ани синяя,у Маши белая,у Вари красная