Question

помогите написать программы по информатике​

Answer 1

Ответ:

3)Но я не уверен только 3-ие пока что.

var a: real;

begin

write ('Введите Вашу температуру: ');

read(a); //Вещественное число вводится через точку

if (a>=36) and (a<=37) then writeln ('Вы здоровы!') else writeln ('Вы больны!');

end.