30*70=2100- символов на странице
2100*5=10500-√ памяти
а дальше я хз
Вот) я конечно не уверена, что правильно, но скорее всего так
for(i:=1 to n) a[i]:=random(101);// заполняшь массив a целыми числами в диапозоне от 0 до 100
Var x,a,b,c:integer;
begin
writeln ('введи трехзначное число');
readln (x);
c:=x mod 10;
b:=x div 10 mod 10;
a:=x div 100 mod 10;
if a=с then writeln ('Число является перевертышем')
else writeln ('число не является перевертышем');
if (a=b) or (a=c) or (b=c) then writeln ('да')
else writeln ('нет');
end.
1)смешанная:<span>оркестр,<span>библиотека</span></span>
2)<span>природная:<span>болото,<span>вулккан,<span>степь</span></span></span></span>
<span>3)<span>техническая:<span>самолёт</span></span></span>