Question

Создайте программу на Паскале, которая будет здороваться с вами и спрашивать какая у вас температура (если больше 37, то сказать лечится дома. Если меньше 36 тоже сказать сидеть дома. Если 36-37, то идти в школу. (Программа диалог)

Answer 1

Program dialog;
var
a: integer;
begin
writeln('Привет! Какая у вас температура? ');
readln(a);
if a>37 then
writeln('Лечитесь дома')
else if a<36 then
writeln('Седите дома')
else
writeln('Идите в шоклу');
end.

Answer 2

Конечно! Вот программа на Паскале, которая будет приветствовать вас и спрашивать о вашей температуре, а затем давать соответствующие рекомендации:

pascalCopy code
program GreetingsAndTemperature;

var
  temperature: real;

begin
  writeln('Привет! Какая у вас температура?');
  readln(temperature);

  if temperature > 37 then
    writeln('Вам следует лечиться дома.')
  else if temperature < 36 then
    writeln('Вам также следует сидеть дома.')
  else
    writeln('Ваша температура позволяет вам идти в школу.');

  readln;
end.

При запуске программы она будет приветствовать вас и ожидать вашего ввода температуры. Затем она проверит условия и выведет соответствующую рекомендацию. Помните, что это только пример и программа не проводит медицинской диагностики. Если у вас есть серьезные проблемы со здоровьем, рекомендуется обратиться к врачу.