Var x,y,z,Ans:integer;
u:real;
Begin
Write('Введите числа x,y,z: ');
Readln(x,y,z);
Writeln('Что вычислить из числа ',x,' ?');
Writeln('1 - sin; 2 - cos; 3 - tg;');
Readln(Ans);
case Ans of
1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end;
2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end;
3: begin u:=tan(x); Writeln('tg(',x,') = ',u) end;
else Writeln('Ошибка!') end;
Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z);
Writeln('Без модуля - 1; по модулю - 2');
Readln(Ans);
case Ans of
1: begin
if (u>y) and (u>z) then
Writeln('Максимальное число - ',u)
else
if (y>u) and (y>z) then Writeln('Максимальное число - ',y)
else
if (z>u) and (z>y) then Writeln('Максимальное число - ',z)
else
Writeln('Все числа равны.')
end;
2: begin
if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
Writeln('Максимальное число - ',u)
else
if (abs(y)>abs(u)) and (abs(y)>abs(z)) then
Writeln('Максимальное число - ',y)
else
if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
Writeln('Максимальное число - ',z)
else Writeln('Все числа равны.')
end
end
End.
*.pas прикрепил во вложения
Ответ:1)Тактовая частота процессора это количество выполняемых процессором операций в секунду.2)Системная шина – основная интерфейсная система компьютера, обеспечивающая сопряжение и связь всех его устройств между собой. Шина представляет собой канал передачи данных в виде электронных проводников на материнской плате или многожильного кабеля.3)Порт ввода-вывода – логическое объединение сигнальных линий, через которое принимаются и передаются данные.
Объяснение:
64 = 2^6 => i=6
8 = 2^3 => i=3
6/3=2
Объем занимаемой памяти уменьшился в два раза.
Var a,b,c,max:integer;
begin
read(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>c) and (b>a) then max:=b;
if (c>a) and (c>b) then max:=c;
writeln(max);
<span>end.</span>