Объяснение:
Синтаксис могу плохо помнить:
#include <iostream>
using namespace std;
int main(void){
int x,y,i,N;
cin>>N;
for(i=0;i<N;i++){
cin>>x>>y;
if(x==y) cout<<"2";
else cout<<"1";
}
return 0;
}
Выигрышная стратегия-постоянно уравнивать большее число к меньшему, так игра в конечном итоге сведётся для оппонента к проигрышной позиции (1,1) при оптимальной игре каждого игрока. Так, получается что позиции с равными числами заведомо проигрышные, а с разными-выигрышные для игрока, делающего ход.
Program p1;
var i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
read(a[i]);
end;
for i:=1 to 10 do
if (a[i] mod 3)=0 then writeln('Число: ',a[i]);
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
// 1
var (x,y):=ReadReal2('Введите x и y:');
Writeln((x>0) and (y>0));
// 2
var a,c,d:longint;
Write('Введите число, его квадрат и куб: '); Read(a,c,d);
Writeln((a*a=c) and (a*a*a=d))
end.
<u>Пример</u>
Введите x и y: 3.5 1.8
True
Введите число, его квадрат и куб: 15 225 1225
False
<span>01000010011111111000000000000000 (2) во float 32 = </span>63.875 (10)