Необходимо реализовать поиск нод (ниабольший общий делитель) и нок (наименьшее общее кратное) для двух - id1011987720221014 от KarinaDelacour 14.10.2022 00:29

Question

Информатика: Необходимо реализовать поиск нод (ниабольший общий делитель) и нок (наименьшее общее кратное) для двух чисел, вводимых пользователем. (на вход два целых числа, два целых числа в ответ) пример входных данных: 124, 256; пример выходных данных: нод: 4, нок: 7936 язык - pascal

KarinaDelacour · Accepted Answer

Program Task;
Var a: Array of Integer;
n, b, c, i: Integer;
Begin
Write('Введите номер билета: №');
ReadLn(n);
b := n;
While b <> 0 Do
Begin
b := b Div 10;
c := c + 1;
End;
If (c < 1) Or (c > 6) Then
WriteLn('Неверный номер билета. Завершение программы.')
Else
Begin
SetLength(a, c);
b := n;
For i := c - 1 DownTo 0 Do
Begin
a[i] := b Mod 10;
b := b Div 10;
End;
If (a[0] + a[1] + a[2]) = (a[3] + a[4] + a[5]) Then
WriteLn('Билет "счастливый"!')
Else
WriteLn('Не повезло');
End;
ReadLn;
End.

MOGZ ответил