Var a,b:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if b=0
then begin
write('min(',a,',',b,')=');
if a<b then writeln(a) else writeln(b);
end
else if b<0
then begin
write('max(',a,',',b,')=');
if a>b then writeln(a) else writeln(b);
end
else begin
a:=a*0.8;
b:=b*0.8;
writeln('a = ',a,' b = ',b);
end;
end.
Пример:
a = 5
b = -8
max(5,-8)=5
Полагаю, печатная машинка (телеграф? факс?), а вообще, он ещё функции граммофона, диктофона и телефона объединил:) Ну... О плите и пылесосе промолчу, ибо юмор
Приготовить тесто
нанести тесто на скавараду
перевернуть блин через несколько секунд
снять блин
I = log₂ 64 = 6 бит - кодируется один символ.
1,5 кб = 1536 байт
6 бит ≈ 1 байт
I = K · i => K = I/i = 1536/1 = 1536 символов
Ответ:
Ровно 1 раз
Объяснение:
Постусловие означает, что условие будет проходить проверку на true или false после выполнения алгоритма, раз оно всегда true то и выполняться будет всего 1 раз