Var
a:real;
begin
write('Write amount in cm: '); readln(a);
writeln('In meters: ',a/100:0:4);
writeln('In kilometers: ',a/10000:0:4);
readln
end.
Блок-схема - в прилагаемом файле.
Таблица - см. рисунок.
Формулы:
=ЕСЛИ(И(C2<=13;D2>=160);"+";"-")
=СЧЁТЕСЛИ(E2:E6;"+")
Пишу в питоне :
a= int(input())
b=int(input())
c=int(input())
if a > b and a > c :
print(a)
elif b > a and b > c:
print(b)
elif c > a and c > b :
print(c)
Все числа вводятся через enter!