while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)
В любых
случаях и условиях
Const n=550;
var k10,k50:integer;
begin
writeln(' 10 50');
writeln('----------');
for k10:=0 to n div 10 do
begin
k50:=(n-10*k10) div 50;
if 10*k10+50*k50 = n then writeln(k10:4,k50:5);
end;
end.
Результат:
10 50
----------
0 11
5 10
10 9
15 8
20 7
25 6
30 5
35 4
40 3
45 2
50 1
55 0
Переменная у не изменяется. Следовательно, у=5
В результате суммы переменная х увеличилась на 5. х=3-5, х=-2
А) F := x = sqr(trunc(sqrt(x)))
б) F := (x < -4) or (x > -2)
с) F := ord(x = y) + ord(x = z) + ord(y = z) = 1