Можно ли составить алгоритм так,чтобы можно было решить задачу при любом значении...

Question

Можно ли составить алгоритм так,чтобы можно было решить задачу при любом значении x?задача:у Вити было 7 рублей. Он решил купить карандаш за x рублей. Сколько денег у него останется или сколько не хватит?

Answer 1

Var x:real;
begin 
readln(x);
if x>7 then writeln(x-7) //выводится сколько не хватило.
else
writeln(7-x); //выводится сколько осталось.
readln;
end.

Comments

Какая у вас версия паскаля

---

Write ('На покупку не хватает: '); {Вывыд сообщения на экран}
Write (B); {Вывод переменной}
Writeln (' Рублей'); {вывод сообщения на экран}
End {Закрытие операторных скобок}
Else {Продолжение условия}
Begin {Открытие операторных скобок}
B:= 7-A; {Вычисление остатка денежных средств}
Write ('Осталось денег после покупки: '); {Вывод на экран сообщения}
Write (B); {Вывод переменной}
Writeln (' Рублей'); {Вывод}

---

Просто возможно из за версий у нас такие разные результаты. В принципе школьники учатся на привычном для них паскале АБС последней версии. Также на нем и сдаются экзамены.

---

С вами согласится не могу, здесь, Writlen это команда для среды программирования которая выводит на экран значение или переменную в скобках или же текст заключенный в ' ' одиночные кавычки. также данная команда избегает строкового написания выводимого текста путем того что после вывода заданного содержания производит перевод на следующую строку вывода.

---

Вывод при Writeln
Введите стоимость карандаша
10
На покупку не хватает: 3 Рублей
Введите стоимость карандаша
2
Осталось денег после покупки: 5 Рублей
Вывод при Write
Введите стоимость карандаша10
На покупку не хватает: 3 РублейВведите стоимость карандаша2
Осталось денег после покупки: 5 Рублей