Program zadacha;
var rad, a, b, c, p:real;
begin
p:=3.14;
writeln('Введите радиус круга: ');
readln(rad);
writeln('Введите сторону квадрата: ');
readln(a);
b:=p*(rad*rad);
c:=a*a;
if b>c then
writeln('Площадь круга больше, чем площадь квадрата.')
else
writeln('Площадь квадрата больше, чем площадь круга.');
end.
Объем книги = 2048*256*128*1 байт = 2048*256*128 / 1024 Кбайт =
512*128 Кбайт = 512*128 / 1024 Мбайт = 64 Мбайт
750 Гбайт = 750*1024 Мбайт
а) Количество книг = 750*1024 / 64 = 12000
б) толщина стопки книг = 12000*0,06 м = 720 метров
Program n1;
var k,m,n: integer;
begin
readln(k,m,n);
if (k mod 2<>0) and (m mod 2<>0) and (n mod 2<>0) then write('да') else write('нет');
end.
3<14 - истина
3<5 - истина
истина & истина = истина
Значением выражения будет являться истина.
Ответ: истина
Курсовой информации не бывает