daramorozova626
PascalABC.NET 3.0, сборка 1110 procedure Euclid(a,b:integer; var gcd:integer); var t:integer; begin while b<>0 do begin a:=a mod b; t:=b; b:=a; a:=t end; gcd:=a end;
var i,a,b,c:integer; begin Randomize; for i:=1 to 10 do begin a:=Random(99)+1; b:=Random(99)+1; Euclid(a,b,c); Writeln('НОД(',a,',',b,')=',c) end end.
Victorianian
Program ok; var num:integer; a,b,c:integer; begin readln(num); a:=num mod 10; num:=(num-a)div 10; b:=num mod 10; num:=(num-b)div 10; c:=num; num:=a+b+c; if num or 1 = num then writeln('Нечетное') else writeln('Четное'); readln; end.
Answers & Comments
procedure Euclid(a,b:integer; var gcd:integer);
var
t:integer;
begin
while b<>0 do begin
a:=a mod b;
t:=b; b:=a; a:=t
end;
gcd:=a
end;
var
i,a,b,c:integer;
begin
Randomize;
for i:=1 to 10 do begin
a:=Random(99)+1;
b:=Random(99)+1;
Euclid(a,b,c);
Writeln('НОД(',a,',',b,')=',c)
end
end.
Тестовое решение:
НОД(32,68)=4
НОД(80,68)=4
НОД(36,19)=1
НОД(4,61)=1
НОД(46,72)=2
НОД(55,53)=1
НОД(75,76)=1
НОД(27,96)=3
НОД(98,82)=2
НОД(46,23)=23
var
num:integer;
a,b,c:integer;
begin
readln(num);
a:=num mod 10; num:=(num-a)div 10;
b:=num mod 10; num:=(num-b)div 10;
c:=num;
num:=a+b+c;
if num or 1 = num then
writeln('Нечетное') else writeln('Четное');
readln;
end.