6. Ниже приведена программа, записанная на пяти языках программирования. var a, b: integer; begin readln - id1134424020211123 от MCK17 23.11.2021 08:38

Question

Информатика: 6. Ниже приведена программа, записанная на пяти языках программирования. var a, b: integer; begin readln (a); readln (b); if not ((a =40) and (b 50)) then writeln (СДА ) else writeln( HET ) end. Было проведено 9 запусков программы, при которых в качестве значений переменных аир вводились следующие пары чисел: (-20, -10); (69, 54); (33, -93); (48, 86); (40, 55); (10, 35); (128, 104); (35, 50); (-64, 100). Сколько было запусков, при которых программа напечатала «ДА»?​

MCK17 · Accepted Answer

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

var c, w: integer;

procedure check;

begin

var (a, b) := (Random(0, 20), Random(0, 20));

Print($'{a}*{b}=');

if a * b = ReadInteger then begin inc(c); Println('Правильно') end

else begin inc(w); Println('Неправильно') end;

end;

procedure res;

begin

Println($'Задано вопросов {c+w}');

Println($'Правильных {c}({(c*100)/(c+w):f1}%)');

Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');

end;

begin

var start := true;

while start do

begin

Println('Проверим?(0/1)');

if ReadInteger = 0 then

begin start := false; res; end

else check;

end;

end.

Пример в приложении.

Составить программу проверки знания таблицы умножения. сценарий: компьютер спрашивает: «проверим? »

MOGZ ответил