PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=4 then writeln(четверг');
end
Объем текста рукописи = 2048*1024*64*16 бит = 2048*1024*64*16/8 байт =
2048*1024*64*2 байт = 2048*1024*64*2/1024 Кбайт = 2048*64*2 Кбайт =
2048*64*2/1024 Мбайт = 2*64*2 Мбайт = 256 Мбайт
Объем рукописи с рисунками = 256+2650*6 = 256+15900 Мбайт = 16156 Мбайт
16 Гбайт = 16*1024 Мбайт = 16384 Мбайт
16384 Мбайт > 16156 Мбайт
Ответ:
а) объем рукописи = 16156 Мбайт
б) рукопись поместится
var x: integer;
begin
write('Введите номер месяца: ');
readln(x);
if (x = 9)or(x = 10) then writeln('I четверть');
if (x = 11)or(x = 12) then writeln('II четверть');
if (x = 1)or(x = 3) then writeln('III четверть');
if (x = 4)or(x = 5) then writeln('IV четверть');
end.
1)Функция
program fun;
function f(m,n : real):real;
var
k,x,y : real;
begin
x:=5*m+pi/3;
y:=3*n-pi/3;
k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));
f:=k;
end;
var
a,b : real;
begin
writeln('Введите число a= ');
read(a);
writeln('Введите число b= ');
read(b);
writeln('F= ',f(a, b):0:2);
end.
2) Процедура
program fun;
procedure f(m,n : real);
var
k,x,y : real;
begin
x:=5*m+pi/3;
y:=3*n-pi/3;
k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));
writeln('F=',k:0:2);
end;
var a, b :real;
begin
writeln('Введите число a= ');
read(a);
writeln('Введите число b= ');
read(b);
f(a,b);
end.