Составьте программу рисования окружностей с центром в точке (200, 200) и радиусами 10, 20, 30, 40, 50 (применить команду for) . заранее , надо)

Вы не уточнили, в какой системе программирования. будем считать, что это паскаль. если нет, логику для бэйсика можно тоже понять. всю программу не пишу, только её суть (т.к. все зависит опять же от системы программирования). for i: =1 to 5 do     circle(200,200,i*10);

1)300*60*55*5=4950000(бит) -  занимает  весь  текст 2)100*280=28000(кб)  -  занимают  все  изображения если брать в 1 кб  1000 бит  3.1)4950000/1000+28000=32950(кб)  -  общий  вес  книги 4.1)32950/1000=32,95(мб)  -  вес  книги если  брать  в  1  кб  1024  бит  3.2)4950000/1024+28000=32833(кб)  -  общий  вес  книги 4.2)32833/1024=32,06(мб)  -  вес  книги

По моему так: program p; var a,b,c: integer; begin writeln('первое число: '); readln(a); writeln('второе число: '); readln(b); writeln('третие число: '); readln(c); if (a> b) and (a> c) then writeln('первое число является наибольшим'); if (a> b) and (a< c) or (a< b) and (a> c) then writeln('первое число является средним'); if (a< b) and (a< c) then writeln('первое число является наимешим'); if (b> a) and (b> c) then writeln('второе число является наибольшим'); if (b> a) and (b< c) or (b< a) and (b> c) then writeln('второе число является средним'); if (b< a) and (b< c) then writeln('второе число является наимешим'); if (c> b) and (c> a) then writeln('третие число является наибольшим'); if (c> b) and (c< a) or (c< b) and (c> a) then writeln('третие число является средним'); if (c< b) and (c< a) then writeln('третие число является наимешим'); end.