А теперь скажи мне какой это класс?
Var a: integer;
<span>begin </span>
readln (a);
writeln (sqr((a mod 1000) div 100));<span>
end.</span>
Const N=10;
var i, b, s: integer;
a: string;
begin
readln(b);
a := inttostr(b);
for i := 1 to length(a) do
if (strtoint(a[i]) > s) then
s := strtoint(a[i])
else
s:=10;
if (s = 10) then writeln('No') else writeln('Yes');
<span>end.
Удачи =)</span>
Важный пункт главного меню
400 мб картинки
16*100*80*2000=256 млн бит=32 млн байт=31250 кбайт=30 мбайт и 530 кбайт
итого
400 мб + 30 мб+530 кбайт = 430 мб и 530 кбайт
на флешку влезет