Паскаль АВС:
Program Albinur;
uses crt;
var
v0,a,t : real;
begin
writeln('Программа вычисляет скорость объекта при равноускоренном движении');
writeln(' в заданный момент времени');
write('Введите начальную скорость в м/с '); readln(v0);
write('Введите ускорение в м/с^2 '); readln(a);
write('Введите время в с '); readln(t);
writeln(); writeln();
writeln('*** Вычисляю... ***');
writeln(); writeln();
writeln('Через ',t,' секунд после начала движения скорость объекта будет равна ',v0+a*t,' м/с');
end.
Объяснение:
'''программа не содержит проверок на корректную вводимость значений'''
height = float(input("Ваш рост: "))
weight = float(input("Ваш вес: "))
age = float(input("Ваш возраст: "))
if age < 25:
if height % 100 == weight - 5:
print("Идеальный вес")
elif weight - 5 > height % 100:
print("Избыточный вес")
else:
print("Недостаточный вес")
elif 25 <= age <= 45:
if height % 100 == weight:
print("Идеальный вес")
elif weight > height % 100:
print("Избыточный вес")
else:
print("Недостаточный вес")
elif age > 45:
if weight + 5 == height % 100:
print("Идеальный вес")
elif weight + 5 > height % 100:
print("Избыточный вес")
else:
print("Недостаточный вес")
