Какое значение будет принимать Y после выполнения фрагментов программы 1. var x,y: y:=0 for x:=1 to 9 do y:=y+x;

Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.

3)Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n, используя в программе лишь операцию умножения.

4)Введите последовательность из n целых чисел. Найти наибольшее из всех отрицательных чисел. Вывести его значение и порядковый номер.

5)Вычислите: 99-97+95-93+91-89+....+7-5+3-1.

6)Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): A OR (B AND C) и (A OR B) AND (A OR C).

он прибовляет число но не меньше 10 и т.д. до тех пор , пока ок. Суммой не окажется 100.Выигравает тот , кто первым достигает 100. Как должен действовать первый игрок , чтобы выйграть .

(a div 10) + 14;

a := (b mod 10) + 2;

2) Определите значение целочисленных переменных a и b после выполнения фрагмента программы:

a := 1819;

b := (a div 100)*10+9;

a := (10*b–a) mod 100;

3) Определите значение целочисленных переменных a и b после выполнения фрагмента программы:

a := 42;

b := 14;

a := a div b;

b := a*b;

a := b div a;

4) Определите значение целочисленных переменных x, y и t после выполнения фрагмента программы:

x := 5;

y := 7;

t := x;

x := y mod x;

y := t;

5) Определите значение целочисленных переменных a и b после выполнения фрагмента программы:

а :=6*12 + 3;

b :=(a div 10)+ 5;

a :=(b mod 10)+ 1;

принимать переменная Х, после выполнения фрагмента программы:


f:=5; d:=7;


If f>=d
then x:=f else
x:=d

Подразумевается что a=18 b=-15 p=true
a) if a>b then x:=1 else x:=4;
Помогите пож !!!!

to 9 do

y:=y+x;

writeln(y=,y);

END.

2.var x,y: INTEGER;

BEGIN

y:=0;

for x:=10 downto 5 do

y:=y+1

writeln(y=,y);

END

3. var x,y: INTEGER;

BEGIN

y:=1;

x:=15;

while x>5 do

begin

x:=x-3;

y:=y*x;

end;

writeln(y=,y)

END.

4. var x,y: INTEGER;

begin

y:=1;

x:=10;

repeat

y:=y*x+x;

x:=x-2;

until x<0;

writeln(y=,y);

end.

пожалуйста напишите подробное решение и как получаются ответы