#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int a, b;
cin >> a;
cin >> b;
cout << "НОД(" << a << ";" << b << ")=";
while (a != 0 and b != 0) {
if (a > b) {
a = a % b;
}
else {
b = b % a;
}
}
cout << a + b << endl;
}
Быол бы неплохо указывать среду прoграммирования.
Paskal.
program massiv;
uses crt;
var A:array [1..200] of integer; n, i, k, s: integer;
begin;
clrscr;
writeln ('введите количество элементов в массиве');
readln(n);
randomize;
writeln ('задан массив');
for i:=1 to n do
begin
a[i]:=-10+random(21);
write (a[i], ' ');
end;
writeln;
writeln ('введите число'); {кратное которому необходимо найти}
readln (k);
for i:=1 to n do
if (a[]i]<>0) and (a[i] mod k = 0) then s:=s+1;
write ('количество элементов кратных введенному числу - ', s);
readkey
end.
Складываем "в столбик"
123
+132
------
321
Обратим внимание на правый (младший) разряд. 3+2=1. Конечно же понятно, что не 1, а 11 - был перенос +1 в старший разряд.
Но в привычной десятичной системе счисления 3+2=5 и остается решить вопрос нахождения такого основания системы счисления х, при котором 5 превращается в 11.
1×х+1 = 5 → <u>x=4 </u>- это и есть ответ.
Можно проверить: 123₄ + 132₄ = 321₄ - все верно.
Var i, k: integer;
begin
for i := 15 to 125 do
if (i mod 2 = 0) and (i mod 3 = 0) then write(i, '; ');
<span>end.</span>