Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку.
графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит
program p; uses crt,graph; var d,m: integer; beginclrscr; initgraph(d,m,''); setcolor(green) ; line(200,420,300,420); line(300,420,250,330); line(250,330,200,420); line(200,330,300,330); line(300,330,250,240); line(250,240,200,330); line(200,240,300,240); line(300,240,250,140); line(250,140,200,240); readkey; end.
1)
var
i,n: integer;
begin
readln(n);
for i: =1 to n do writeln(i*i);
end.
2)
for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);
3)
var i,n: integer; p: real;
begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.
4)
for i: =1 to n do if (i mod 2=0) then writeln(i);
5)
i,n,k: integer;
k: =0;
for i: =1 to n do if (i mod 15=0) then k: =k+1;
writeln(k);
Популярные вопросы