Question

Написать алгоритм решения следующей задачи: ЭВМ спрашивает: «Сколько вам лет?». Если ответ больше 100, то отвечает: «Вы хорошо сохранились!». В противном случае желает: «Лет до 100 расти вам без старости!». Помогите составить алгоритм

Answer 1

Var age:integer;
begin
   writeln('Сколько вам лет?');
   readln(age);
   if age<=0 then writeln("Так не бывает, т.к. вы ещё не родились и не можете писать");
   if age>100 then writeln('Вы хорошо сохранились!') else writeln('Лет до 100 расти вам без старости!');
end.

Answer 2

Конечно, вот алгоритм, решающий данную задачу:

1. Запросить возраст пользователя. 2. Прочитать введенный возраст. 3. Проверить условие: если возраст больше 100. - Если да, то вывести сообщение: "Вы хорошо сохранились!" 4. Если условие из пункта 3 не выполнилось (то есть возраст <= 100): - Вывести сообщение: "Лет до 100 расти вам без старости!"

Пример алгоритма на псевдокоде:

Запросить_возраст_пользователя()
Возраст = Считать_введенный_возраст()

Если Возраст > 100, то
    Вывести "Вы хорошо сохранились!"
Иначе
    Вывести "Лет до 100 расти вам без старости!"

Этот алгоритм задает последовательность действий для проверки возраста пользователя и вывод соответствующего сообщения в зависимости от условий.