1. PascalABC.NET
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('Введите число:');
Writeln((x>=0) and (x<=2)?'Да':'Нет')
end.
<u>Пример</u>
Введите число: 1.17
Да
2. На этой же версии в стиле традиционного школьного паскаля
var
x:real;
begin
Write('Введите число: '); Read(x);
if (x>=0) and (x<=2) then Writeln('Да')
else Writeln('Нет')
end.
Https://sch.com/table.xls
Ответ: Б, В, Г, А, Ж, Е, Д.
Наливаем в емкость 8л 5 +3 л воды, в емкосте 5л остается 2 литра, выливаем воду из 8л емкости, наливаем 2 литра в емкость 8л, затем наливаем 5 литров в емкость 8л, в емкосте 8л 5+2=7 литров воды, выливаем из 5л емкости 1 литр и получаем 4 литра.