Повторение. Условный оператор. Операторы цикла

Выберите правильное утверждение. Данный алгоритм ...

var n: integer;
begin
read(n);
if  n>0 then n:=n mod 10; 
writeln(n); 
end.

В результате выполнения фрагмента программы, представленной ниже, переменная С примет значение:
а:=5;

b:=20;

а:=а-b/2;

if а>b then с:=а+b else с:=b-а;

 

Что произойдет в результате выполнения программы, представленной ниже:
program pr;

 var а, b, с: integer;

begin

write (‘Введите первое целое число’);

readln (а);

write (‘Введите второе целое число’);

readln (b);

if а>b then с:=2*а else с:=2*b;

writeln (с)

end.

 

В результате выполнения фрагмента программы, представленной ниже, переменная С примет значение 4, если:
if a<4 then

if b>3 then с:=4

else c:=5

else c:=6;

 

Во фрагменте программы, показанной ниже, укажите сколько раз выполнится цикл

а:=0.5;

s:=0;

i:=0;

repeat

i:=i+1;

b:=1/i;

s:=s+a;

until b<а;
 

В результате выполнения фрагмента программы, показанной ниже, переменная s примет значение:

s:=0;

n:=1;

while n<=10 do

begin s:=s+n;

n:=n+1;

end;

writeln (‘s=’, s);

Ниже приведена программа

var s, t: integer;

begin

    readln(s);

    readln(t);

    if (s > 8) or (t > 8)

        then writeln('YES')

        else writeln('NO')

end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:

 (8, 8); (9, 6); (4, 7); (6, 6); (–9, –2); (–5, 9); (–10, 10); (6, 9); (10, 6).

 Сколько было запусков, при которых программа напечатала «NO»?

Ниже приведена программа, 

var s, t: integer;

begin

    readln(s);

    readln(t);

    if (s < 9) or (t < 9)

        then writeln('YES')

        else writeln('NO')

end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:

 (9, 9); (9, 10); (8, 5); (11, 6); (–11, 10); (–5, 9); (–10, 10); (4, 5); (8, 6).

 Сколько было запусков, при которых программа напечатала «YES»?

С помощью оператора for в языке Паскаль програм­мируется:

Отметьте, что определяется во фрагменте программы:

readln (а, b);
for i:=1 to n do
begin
write (‘Enter х’);
readln (х);
if х>b then b:=х
else if х<а then а:=х;
end;
writeln (b-а);

Выберите название цикла, который программируется с помощью оператора repeat.

Запишите, с помощью какого оператора программи­руется в языке Паскаль цикл с заданным условием про­должения работы.

Параметр цикла For может принять значения…

Определите, что будет напечатано в результате работы следующей программы.
var s, k: integer;
begin
s := 60;
for k := 1 to 8 do
s := s – 4;
write(s);
end.

Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=7 to 9 do
sum:=sum+i;