Siraginn 24 октября 2019 в 04:06
Запишите на языке Pascal.
x>0, y≤5.
Величина x - четная.
Величина x - нечётная.
X кратно 3.
X делится без остатка на 2 и на 3.
X не делится на 5
Запишите на языке Pascal.
x>0, y≤5.
Величина x - четная.
Величина x - нечётная.
X кратно 3.
X делится без остатка на 2 и на 3.
X не делится на 5
If x gt; 0 then ...
if y lt;= 5 then ...
if x mod 2 = 0 then ...
if x mod 2 lt;gt; 0 then ...
if x mod 3 = 0 then ...
if (x mod 2 = 0) and (x mod 3 = 0) then...
if (x mod 5 lt;gt; 0) then ...
if y lt;= 5 then ...
if x mod 2 = 0 then ...
if x mod 2 lt;gt; 0 then ...
if x mod 3 = 0 then ...
if (x mod 2 = 0) and (x mod 3 = 0) then...
if (x mod 5 lt;gt; 0) then ...
Для комментирования необходимо зарегистрироваться на сайте