Function gcd(n, m: integer): integer;begin while n <> m do if n > m then n := n - m else m := m - n; gcd := n;end;var i, j, k, n: integer;begin readln(n); k := 0; for i := 1 to n do begin if nod(i, n) = 1 then write(i, ' '); end;end.

0 0

3 года назад

PascalABC. Определить, чему равна максимальная первая цифра n введенных с клавиатуры чисел. Использовать функцию.

АНАТОЛИЙ СЫЧЕВ

Const nx=20;var i,n,k,z,v,err,max:integer; t,s:string;a:array[1..nx] of integer;beginWrite('Введите число n');Read(n);Write('Введите числа');for i:=1 to n doRead(a[i]);foreach k in a do beginstr(k,s);t:= copy(s,1,1);val(t,v,err);if max < v then max:=v;end;writeln('max =',max);end.

0 0

3 года назад

Даны два числа X и Y, значения которых вводятся с клавиатуры. Написать программу, которая выводит на экран true , если только од

РусланСаидов

Pascal ABC................

0 0

1 год назад