Var a,b,c,d: real;
<span>begin
</span><span> write('числа a,b,c,d через пробел: ');
</span><span> readln(a,b,c,d);
</span><span> writeln('минимум: ',min(a,min(b,min(c,d))));
</span><span> writeln('максимум: ',max(a,max(b,max(c,d))));
</span><span>end.
</span><span>
</span>
1)
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if x>0 then
writeln ('Число ', x, ' положительное')
else
if x<0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.
2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if x>y then writeln (x)
else
if x<y then writeln (y)
else
if x=y then writeln ('Числа равны');
End.
3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Произведение чисел = ', pr);
if sum>pr then writeln (sum)
else
if sum<pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и произведение равны');
End.
Описание:
введем массив из температур - w,
будем вводить значения температур с помощью цикла и сразу находить сумму s, затем найдем среднее значение sr_t и выведем его значение, отведя для этого 5 знакомест, из которых 2 после запятой - sr_t:5:2.
program sr_temp;
var s,i:integer; sr_t:real;
w: array [1..7] of integer;
begin
s:=0;
for i:=1 to 7 do
begin
readln(w[i]); s:=s+w[i];
end;
sr_t:=s/7;
writeln('Средняя температура за неделю - ',sr_t:5:2);
end.
Так как 1 символ = 1 бит, получается:
73 бит=9байт 1 бит
Ну наверное на монитор.
Еще можно через принтер.