РЕБЯТ НАДОО!! Ниже приведена программа, записанная на пяти языках программирования.

Бейсик

DIM s, t, A AS INTEGER

INPUT s

INPUT t

INPUT A

IF s > 10 OR t > A THEN

PRINT "YES"

ELSE

PRINT "NO"

ENDIF
Python
s = int(input())

t = int(input())

A = int(input())

if (s > 10) or (t > A):

print("YES")

else:

print("NO")

Паскаль

var s,t,A: integer;

begin

readln(s);

readln(t);

readln(A);

if (s > 10) or (t > A)

then

writeln ('YES')

else

writeln ('NO')

end.
Алгометрический язык
алг

нач

цел s, t, A

ввод s

ввод t

ввод A

если s > 10 или t > A

то вывод "YES"

иначе вывод "NO"

все

кон

С++

#include

using namespace std;

int main() {

int s, t, A;

cin >> s;

cin >> t;

cin >> A;

if(s > 10) or (t > A)

cout << "YES" << endl;

else

cout << "NO" << endl;

return 0;

}

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:

(1, 2); (11, 2); (1, 12); (11, 12); (−11, −12); (−11, 12); (−12, 11); (10, 10); (10, 5).

Укажите количество целых значений параметра A, при которых для указанных входных данных программа напечатает «NO» три раза.

1.const  N=10;
type Vector = array [1..N] of integer;
var B: vector;   
     max :integer;
procedure IntVector(N: integer; var a: vector);
begin 
 for var i := 1 to N do  a[i] := random(100);
end;
procedure OutVector(N: integer; a: vector);
begin  for var i := 1 to N do  
begin      write(a[i]:5);
end;
end;
procedure Srav (a:vector; N,g:integer);
begin
g := a[1];
for var i:=1 to N do
if (g < a[i]) then g:=a[i];
writeln (g);
end;
Begin 
IntVector(N, B); 
writeln; 
OutVector(N, B ); 
writeln;  
Srav(B,N, max); 
writeln;
End.
2. const  N = 10;
type  Vector = array [1..N] of integer;
var  B: vector; 
     r,v : real; 
procedure IntVector(N: integer; var a: vector);
begin 
for var i := 1 to N do    
a[i] := random(20);
end;
procedure OutVector(N: integer; a: vector);
begin 
 for var i := 1 to N do  
begin   
write(a[i]:5); 
 end;
end;
function srednee(a: vector; N: integer): real;
begin 
for var i := 1 to N do   begin   result := (result + a[i]);  
end; 
end;
function kolvo(a: vector; g: real): real;
begin 
for var i := 1 to N do
   if (a[i] < (srednee(a, N)/10)) then result := result + 1;
end;
begin 
IntVector(N, B);  writeln; 
OutVector(N, B ); 
writeln; 
writeln ((srednee(B, N)/10):5:3);   r := kolvo(B, v); 
writeln(r);
end.

Сразу же очевидно, что Лена - не дочь А.И. (1)
1. Пусть Анна - дочь А.И.(1), тогда Тома должна была танцевать с ним, но этого не может быть, так как А.И. танцевал с Леной.
Значит, Анна - не дочь А.И.
2. Пусть Катя - дочь А.И.(1), тогда Анна танцевала с А.И.(1), но этого также не может быть, так как он танцевал с Леной. Катя - не дочь А.И.
Значит, остаётся только один вариант - Тома дочь А.И.(1).
Следовательно, В.С.(3) танцевал с Томой.
4. Пусть Катя - дочь В.С.(3), тогда с ним танцевала Анна, но этого не может быть, так как с ним танцевала Тома.
5. Пусть Лена - дочь В.С.(3), но тогда с ней должен был танцевать Ф.П., а это невозможно, так как с Леной танцевал А.И.(1). Следовательно, Анна - дочь В.С.(3). Осталось разобраться с Ф.П. и  Г.А.
6. Ф.П.(2) - танцевал с дочерью В.С., значит от танцевал с Анной, т.е. он - отец Кати.
7. Соответственно Г.А. - отец Лены и танцевал с Катей.
Пары отец-дочь:
1Т
2К
3А
4Л