Паскаль: program chislo; var N,c1,c2,c3:integer; begin readln(N); c1:=N div 100; {цифра разряда сотен} c2:=(N div 10) mod 10; c3:=N mod 10;{цифра разряда единиц} writeln(c3*100+c2*10+c1); end.
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
begin var (x,y):=ReadInteger2('Введите через пробел два числа:'); if (x<0) or (y<0) then Writeln('Ввод отрицательных чисел недопустим') else begin while y>0 do (x,y):=(y,x mod y); Writeln('НОД=',x) end end.
Примеры Введите через пробел два числа: 14 -2 Ввод отрицательных чисел недопустим
Введите через пробел два числа: 32 76 НОД=4
2. Традиционный "школьный" код
var x,y,t:integer;
begin Write('Введите через пробел два числа: '); Read(x,y); if (x<0) or (y<0) then Writeln('Ввод отрицательных чисел недопустим') else begin while y>0 do begin x:=x mod y; t:=x; x:=y; y:=t end; Writeln('НОД=',x) end end.
Var a,b,i,nod:integer Begin a:=-1; b:=-1; //ввод первого числа Writeln('Введите первое число'); While a<0 do begin readln(a); if a<0 then writeln('Ввод ошибочен, повторите ввод первого числа'); end; //ввод второго числа Writeln('Введите второе число'); While b<0 do begin readln(b); if b<0 then writeln('Ввод ошибочен, повторите ввод второго числа'); end; //определение минимального числа if a>b then i:=b else i:=a; //перебор чисел от минимального до 0 (т.к. НОД не может быть больше минимального числа) While nod=0 do begin i:=i-1; if (a mod i = 0) and (b mod i = 0) then nod:=i; end; //вывод НОД Writeln('НОД ', a,' и ', b, ' = ', nod); end.
program chislo;
var N,c1,c2,c3:integer;
begin
readln(N);
c1:=N div 100; {цифра разряда сотен}
c2:=(N div 10) mod 10;
c3:=N mod 10;{цифра разряда единиц}
writeln(c3*100+c2*10+c1);
end.