графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит
Ответ дал: Гость
Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer; a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 ); for i : =1 to n do begin x : =xc +round (rc * cos (a *i ) ); y : =yc -round (rc * sin (a *i ) ); circle (x ,y ,ro ); end; end.
Ответ дал: Гость
сначала нужно переправить козу, затем вернуться за капустой, переправить капусту и забрать козу. потом переправить волка, ну а потом уже козу.
Ответ дал: Гость
max: =a[1];
for i: =2 to 10 do
begin
if a[i]> max then
max: =a[i];
c: =i;
end;
min: =a[1];
for i: =2 to 10 do
begin
if a[i]< min then
min: = a[i];
d: =i;
end;
a[c]: =x;
a[c]: =a[d];
a[d]: =x;
это кусочек программы в паскале для нахождения максимального элемента на скоко я помню
Популярные вопросы