Var
i, s: integer;
begin
s := 0;
for i := 10 to 99 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
А) Таблица;
Б) Многоуровневый маркированный список;
В) Нумерованный;
Г) Нумерованный;
Д) Многоуровневый нумерованный список.
PS Нумерованные и маркированные списки, на мой взгляд, в данных ответах выбраны оптимальными, но они могут быть заменены друг другом.
Var
i : integer;
count : real;
begin
count := 370000;
for i := 2014 to 2030 do
begin
writeln('Год ', i, ': ', Round(count));
count := count + count * 3 / 100;
end;
<span>end. </span>