Блок схема для программы program project2; {$apptype console} uses sysutils; var a,b,c: integer; function nod(a,b: integer): integer; begin while a< > b do if a> b then a: =a-b else b: =b-a; nod: =a; end; begin write('vvedite a,b,c: '); readln(a,b,c); writeln('nod(a,b,c): ',nod(nod(a,b),c)); readln; end.

farita1 farita1    1   09.06.2019 02:00    3

Ответы
Віталій128 Віталій128  01.10.2020 22:41
var
  a, b, c: integer;
begin
  write('Vvedite a,b,c: ');
  readln(a, b, c);
  
  while a <> b do
    if a > b then a := a - b
    else b := b - a;
  
  while a <> c do
    if a > c then a  := a - c
    else c := c - a;
  
  writeln('Nod(a,b,c): ', a);
  readln;
end.
Блок схема для программы program project2; {$apptype console} uses sysutils; var a,b,c: integer; fun
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика