1) ГВДАБ
2) по кругам Эйлера на фото
<span>const
D: real = 10; // число км в день
p: real = 1.12; // %
M: integer = 30;// число дней в месяце
N: integer = 25;// макс дистанция в условии задачи
var c: integer;
s, x: real;
begin
x := D;
for c := 1 to </span>M<span> do begin
s := s + x;
x := x * p;
end;
writeln('в месяц пробегает: ', s);
x := D; c := 0;
while (x < N) do begin
c := c + 1;
x := x * p;
end;
writeln('Нужно ', c, ' дней');
end.
</span>
#include <iostream>
using namespace std;
void get_odd_even_divisors(int n, int &odd, int &even){
odd = 0;
even = 0;
for (int i=1; i<=n; i++)
if (n % i == 0){
if (i % 2 == 1) odd++;
else even++;
}
}
int main() {
int n, k1, k2;
cin >> n;
get_odd_even_divisors(n, k1, k2);
cout << "odd = " << k1 << " even = " << k2;
return 0;
}
Пример:
24
<span>odd = 2 even = 6</span>
Var a,b : integer;
begin
readln(a,b);
if (a mod b) = 0 then writeln('Делитель ', b);
if (b mod a) = 0 then writeln('Делитель ', a);
readln;
end.
B:=32(после вычисления);
a:=32(после вычисления);