Question

срочно пожалуйста!!!Ниже приведена программа, записанная на нескольких языках программирования.
Алгоритмический язык Паскаль
алг
нач
цел a, b
ввод a
ввод b
если a mod 2=0 и b>10
то вывод “Да“
иначе вывод “Нет“
все
кон var a, b: integer;
begin
readln (a);
readln (b);
if (a mod 2=0) and (b>10)
then writeln (‘Да‘)
else writeln (‘Нет‘)
end.
Было проведено 10 запусков программы, при которых в качестве значений переменных a, b вводились пары чисел: (10; 5), (-10; 15), (1; 2), (11; 2), (12; 1), (10; 12), (-12; -11), (-12; 11), (10; 10), (-11; 12). Сколько было запусков, при которых программа напечатала «Да».

Answer 1

Ответ:

3 cказало да, 7 сказало нет.

var a,b,v,c,k: integer;

begin

v:=0;

repeat

v:=v+1;

readln (a);

readln (b);

if (a mod 2=0) and (b>10)

then c:=c+1

else k:=k+1

until v = 10;

writeln ('c:=',c,' k:=',k);

readln

end.

Объяснение:

Инструкция:

Вбиваем первое число из скобки, потом второе.

повторить алгоритм со второй скобки и с третьей и так далее пока не покажет итог

c <- Да

k <- Нет