1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
var i,j:integer;
begin
for i:=0 to 3 do
begin
for j:=i to 2 do write (' ');
write('/');
for j:=1 to i do write (' ');
write('\');
writeln;
end ;
for i:=0 to 3 do
begin
for j:=1 to i do write (' ');
write('\');
for j:=i to 2 do write (' ');
write('/');
writeln;
end ;
end.
<span>28МАЯ
1. длина цепочки </span>28МАЯ (5) нечётна ⇒ 28АЯ ⇒ 39АЯ
2. длина цепочки 39АЯ (4) чётна ⇒ 139АЯ ⇒ 240АЯ
N = 256
N = 2 ** i
i = 8
k = 40 * 32 * 48 = 61440 символов
I = k * i
I = 61440 * 8 = 491520 бит = 61440 Байт = 60 Кбайт
Ответ: 60 Кбайт
Var age:integer;
begin
writeln('Сколько вам лет?');
readln(age);
if age<=0 then writeln("Так не бывает, т.к. вы ещё не родились и не можете писать");
if age>100 then writeln('Вы хорошо сохранились!') else writeln('<span>Лет до 100 расти вам без старости!</span>');
end.