Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
У крестиков два выигрышных поля.
1) Среднее поле
2)Верхний правый угол
Программа:
var n,k,i: integer;
begin
write('n = ');
readln(n);
// вычисляем число перестановок
k:=1;
for i:=1 to n do k:=k*i;
writeln('k = ',k);
end.
Пример:
n = 3
k = 6