Question

Написать программу проверки знания коэффициента свободного падения. В случае неправильного ответа пользователя,программа должна выводить правильный ответ.

Answer 1

var g: real;

begin

writeln ('Чему равен коэффициент свободного падения?');

writeln ('Введите число и нажмите <Enter>');

readln (g);

if g=9.81 then writeln ('Правильно! Молодец!')

else writeln('Не правильно. Вы ошиблись! Правильный ответ: 9.81')

end.