ТутРешу.Ру

Задание 4. Калорийность обеда

Задание:

Задание 4. Калорийность обеда

Решение:

uses crt; vart1: boolean; a, b, c: real; beginwriteln (' Калорий в обеде='); readln (a); writeln ('Норма калорий='); readln (b); if (a>=b) then t1: =true else t1: =false; writeln (t1); readkey; end.




Знаете другой ответ?

Отправить свой ответ