Program n_6;

const
n=10;

var
m:array[1..n] of integer;
i,x,y,z:integer;

procedure nod(a,b:integer; var c:integer);
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
c:=a
end;

begin
Writeln('Введите 10 двухзначных целых чисел');
for i:=1 to n do Read(m[i]);
x:=m[1];
for i:=2 to n do begin y:=m[i]; nod(x,y,z); x:=z end;
Writeln('НОД=',x)
end.

0 0

4 года назад

В уравнении XX+X=ABC разные цифры заменены разными буквами.Чему равно значение выражения: 4X+3B+2A+C?Помогите пожалуйста нужно у

Fenisiferb

Так как в результате первого сложения должно получиться трехзначное число, то нетрудно предположить, что три одинаковые цифры - три девятки.
99+9=108
Соответственно:
X=9
B=0
A=1
C=8
Подставляем во второе выражение и решаем:
4*9+3*0+2*1+8=36+2+8=46
Ответ: 46

0 0

1 год назад

Дима хотел послушать музыку на компьютере, для этого ему нужно было включить музыкальный файл Белые_розы.mp3. Он начал работу с

Pobeda15

C:\Музыка\Лучшие\Про_цветы\Белые_розы.mp3

Вариант 3 является верным

0 0

4 года назад

Помогите пожалуйста сделайте так чтобы если длинна фамилий одинакова чтобы выводилась не про одинаковую длинну без лишнего progr

Koshevoyvlad

if(c==d) then writeln("Твой текст");

0 0

4 года назад