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

2

Объяснение: чтобы было да, надо чтобы выполнялось условие

а≤40 И b>50, нам подходят:

(40;55)

(-64;100) . Два запуска

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.

// 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.

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