var T: real;
begin
writeln('введите Вашу температуру') ;
readln(T) ;
if (T>=34) and (T<37) then writeln('Вы здоровы') ;
if (T>=37) and (T<40) then writeln('вызовите врача') ;
if (T>=40) and (T<42) then writeln('вызовите скорую') ;
if (T<34) or (T>=42) then writeln('Вы мертвы') ;
end;
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var T: real;
begin
writeln('введите Вашу температуру') ;
readln(T) ;
if (T>=34) and (T<37) then writeln('Вы здоровы') ;
if (T>=37) and (T<40) then writeln('вызовите врача') ;
if (T>=40) and (T<42) then writeln('вызовите скорую') ;
if (T<34) or (T>=42) then writeln('Вы мертвы') ;
end;