1. 45
2. 26
3. 88
4. 150
5. 120
Правой кнопкой мыши по рабочему столу - Вид - Снимите галочку с "Выровнять по сетке"
Внешние: глобус, телефон, компьютер, школа.
Внутренние: ластик, сигнал, карандаш, окно.
Вроде так.
Использовал оперативную память
Var i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
for i:=10 to 20 do
if i mod 2=1 then write(i,' ');
end.