В левой строке находится команда
3). Подставим в первый оператор значение х=25
if (25=10) or (25<2) then y:=5 else y:=10;
Теперь вычислим значение логического выражения, стоящего после if
false or false дает false.
Условный оператор if при false передаст управление оператору, стоящему после else и выполнится y:=10;
Это значение (10) и будет выведено.
4) Количество повторений цикла вида for i=a to b вычисляется по формуле
b-a+1.
Подставляем значения: 5-0+1 - 6. Получается, что 6 раз.
c*a+b=-1
-1*a+b=0
0*a+b=4
b=4, a=b=4, c=-5/4
“c” - не целое число, вопреки условию.
То есть при заданных аргументах, задача не решаема.
В тоже время, задача становится решаемой, если первый член последовательности равен не -1, а -2 (то есть при последовательности -2,0,4).
c*a+b=-2
-2*a+b=0
0*a+b=4
b=4, a=2, c=-3
Четвертый член последовательности, в этом случае, вычисляется так:
4*a+b=4*2+4=12
var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.