Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a: array [1..100] of integer;
i,n: integer;
s: string;
begin
randomize;
for i : =1 to 100 do
a[i]: = random(1000)+1000;
a[i]: =a[i] mod 100;
a[i]: =a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
end.
картинка длжна быть в папке с программой и быть в формате bmp
uses graphabc;
var b: picture;
beginb : = picture.create('banner.bmp'); b.load(n); b.draw(200, 200); end.
var a,b: integer;
read(a,b);
writeln(a,'> ',b,' - ', a> b);
writeln(a,'< ',b,' - ', a< b);
writeln(a,'=',b,' - ', a=b);
writeln('sotrudnik podhodit - ', (a> =3) and (b< =35));
ну считай. один символ - 2 байта
вес страницы 25*60*2 байт
обьем 200*1024 байт
и поделим
200*1024/25/60/2 и сократить до целых
калькулятор думаю найдется
Популярные вопросы