Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ: 7 seven семь
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.
Популярные вопросы