Составить программу на языке ПаскальАБЦ - вопрос №11966345 от дарий833 10.03.2023 18:06

Question

Информатика: Составить программу на языке ПаскальАБЦ

дарий833 · Answer

program tempa;

var

t: real;

begin

writeln('Введите температуру человека: ');

readln(t);

if t <> 36.6 then writeln('Болен')

else writeln('Здоров');

readln;

end.