Диск
Камень
Кассета
Книжка
Дискета
Бумага
Флеш
закрасить
нц пока сверху свободно
вверх
кц
нц пока справа свободно
вправо
кц
нц пока не(справа свободно)
закрасить
вниз
кц
А интернет для чего тебе? Это же лёгкие вопросы!
Ответ:
program pred;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
while i <= n do begin
if i mod 2 = 0 then
s := s + i;
Inc (i);
end;
WriteLn ('Сумма = ', s);
ReadLn;
end.
- - - - - - - - - - - - - -
program post;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
repeat
if i mod 2 = 0 then
s := s + i;
Inc (i);
until i > n;
WriteLn ('Сумма = ', s);
ReadLn;
end.