Ниже приведен фрагмент программы readln(s); readln(k); if s mod 9 = k then writeln(‘YES’) else writeln(‘NO’) Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел: (9, 0); (10, 10); (18, 9); (22, 4); (27, 3); (12, 9); (29, 2); (4, 2); (3, 3 Сколько было запусков, при которых программа напечатала «YES»?

4

Объяснение:

Если s % 9 == k, то ДА иначе НЕТ, разберем случаи:

9 % 9 = 0 => 0 == 0 => (YES)

10 % 9 = 1 => 1 != 10 => (NO)

18 % 9 = 0 => 0 != 9 => (NO)

22 % 9 = 4 => 4 == 4 => (YES)

27 % 9 = 0 => 0 != 3 => (NO)

12 % 9 = 3 => 3 != 9 => (NO)

29 % 2 = 2 => 2 == 2 => (YES)

4 % 9 = 4 => 4 != 2 => (NO)

3 % 9 = 3 => 3 == 3 => (YES)

Считаем "жирные" строки и получаем ответ 4

P.S лучший ответ, если не сложно)

Program Sarumyana;
const n=10;
var a:array[1..n] of integer;
tri, nol, odd, i: integer;
  begin
  writeln('*** alphaues is thinking... ***');
  tri:=0;
  nol:=0;
  odd:=1;
  for i:=1 to n do
  begin
    write('Введите ',i,'-e число ');
    readln(a[i]);
    if a[i] mod 3 = 0 then tri := tri + a[i];
    if a[i] = 0 then nol := nol + 1;
    if i mod 2 = 1 then odd := odd * a[i]
  end;
  write('Строка чисел: ');
  for i:=1 to n do
  begin
    write(a[i],' ');
  end;
   writeln();
   writeln('Сумма элементов, кратных 3, равна ',tri);
   writeln('Количество нулевых элементов = ',nol);
   writeln('Произведение элементов, стоящих на нечётных местах, = ',odd);
end.

1)Program massiv;

Var mas:array[1..20] of integer;

a,b,i,sum:integer;

Begin

sum:=0;

For i:=1 To 20 Do

begin

mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}

write(mas[i],' ');

end;

Writeln('Введите a,b');

Readln(a,b);

For i:=1 To 20 Do

begin if (mas[i]>a) and (mas[i]<b) Then sum:=sum+mas[i]; end; Writeln(sum); end.    2)  Program massiv; Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin For i:=1 To 20 Do begin mas[i]:= random(15); write(mas[i],' '); end; Writeln; min:=30000; max:=0; For i:=1 To 15 Do begin if mas[i]>max Then max:=mas[i]; if mas[i]<min Then min:=mas[i]; end; pr:=min*max; Writeln(pr); end.  3)Program massiv;Var mas:array[1..20] of integer; a,b,i,k:integer;BeginFor i:=1 To 20 Dobegin mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');end;Writeln('Введите a,b,k');Readln(a,b,k);i:=1;While i<>20 Dobeginif (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;end;　end. 4)Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin randomize; For i:=1 To 20 Do begin mas[i]:= random(100)+1; write(mas[i],' '); end; Writeln; pr:=1; For i:=1 To 15 Do begin pr:=pr*mas[i]; end; Writeln(pr); end.