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.
Есть 2 вида плодов 1 вид фрукты второй овощи далее надо распределить их я точно сказать не могу потому что не вижу само задание
1) зайти в пункт меню файл
2) выбрать пункт "Сохранить"
3) выбрать по навигации папку, в которую нужно сохранить
4) дать имя файлу
5) нажать кнопку "Сохранить"
№1 ответ 105 и 600
№2 ответ 55
см приложения
Ответ:
Объяснение:
var i:integer;
begin
for i:=1 to 30 do begin
if i mod 2 = 0 then begin
writeln('*');
end
else
writeln(i);
end;
end.