Контрольная работа по обществознанию. таблица. Программа на Паскале Program nanny Var T real begin writeln("Ты вчера болен. Измерька температуру!") readln t 36. 6 then begin

• Название: Программа на Паскале Program nanny Var T real begin writeln("Ты вчера болен. Измерька температуру!") readln t 36. 6 then begin
• Анкор: Контрольная работа по обществознанию
• Дата: 22.05.2023
• Размер: 7.39 Kb.
• Имя файла: таблица.rtf
• Тип: Программа; #1150477

Вариант 1:

Ты вчера был болен. Измерь-ка температуру!

Сообщи, какая у тебя температура: 36.5

ты здоров, дружок! Можешь идти в школу.

Желаю успехов!

Вариант 2:

вчера был болен. Измерь-ка температуру!

Сообщи, какая у тебя температура: 37.3

Ты еще болен! Раздевайся и ложись в постель.

Поправляйся, дружок


алг НЯНЬКА

вещ Т

нач

вывод"Ты вчера был болен.Измерь-ка температуру!"

вывод"Сообщи,какая у тебя температура:"

ввод(Т)

если Т>36,6

то вывод "Ты еще болен. Раздевайся и ложись в постель.

вывод "Поправляйся лружок!"

иначе вывод "Ты здоров, дружок! Можешь идти в школу."

вывод "Желаю успехов!"

кв

кон

По этому алгоритму получается следующая программа на Паскале:
Program NANNY;

Var T: real;

begin

writeln("Ты вчера болен. Измерь-ка температуру!");

readln T > 36.6

then begin

writeln("Ты еще болен! Раздевайся и ложись в постель.";

writeln("Поправляйся, дружок!)

end

else begin

writeln("Ты здоров, дружок!

Можешь идти в школу.");

writeln("Желаю успехов!")

end.