Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i); end; end.
//1б Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if x1+x2+sqr(x1+x2)=i then writeln(i); end; end.
//2 Var i,n,a,k1,k2:integer; begin readln(n); for i:=1 to n do begin readln(a); if a<1985 then k1:=k1+1; if a>1990 then k2:=k2+1; end; writeln('Родившиеся до 1985:',k1); writeln('Родившиеся после 1990:',k2); end.
Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i); end; end.
//1б Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if x1+x2+sqr(x1+x2)=i then writeln(i); end; end.
//2 Var i,n,a,k1,k2:integer; begin readln(n); for i:=1 to n do begin readln(a); if a<1985 then k1:=k1+1; if a>1990 then k2:=k2+1; end; writeln('Родившиеся до 1985:',k1); writeln('Родившиеся после 1990:',k2); end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b
else b:=b-a;
Result:=a
end;
function NOD(a,b,c:integer):=NOD(NOD(a,b),c);
function NOK(a,b:integer):=(a*b) div NOD(a,b);
function NOK(a,b,c:integer):=NOK(NOK(a,b),c);
begin
Writeln(NOD(250,15));
Writeln(NOD(250,150,50));
Writeln(NOK(250,15));
Writeln(NOK(250,15,50))
end.
Решение для тестовых данных
5
50
750
750