срочно пожалуйста!!!Ниже приведена программа, записанная на нескольких языках программирования.
Алгоритмический язык Паскаль
алг
нач
цел 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). Сколько было запусков, при которых программа напечатала «Да».
Answers & Comments
Ответ:
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 <- Нет