Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
режим дня трудоголика
проснулся- позавтракал- на работу-домой-поужинал и спать
повторить nраз до самой смерти
1 кбайт=1024 байта
1 байт=8 бит
81920/8=10240 байт
10240/1024=10 кбайт
var
i: integer;
a: array[1..16]of integer;
begin
for i: =1 to 16 do
a[i]: =random(40)-20;
if a[i] mod 3=0 then write(i,' ');
end;
writeln;
end.
Популярные вопросы