<h3>
<em><u>Ответ</u></em><em><u>:</u></em><em><u /></em></h3>
Повар - Миша , Врач - Коля,
Инженер - Дима,
Милиционер - Саша .
<h3>
<em><u>Решение</u></em><em><u>:</u></em><em><u /></em></h3>
На фотографии .
//Pascal ABC.NET v3.0 сборка 1111
Var
a,b,c,d:integer;
begin
read(a,b);
c:=a;
d:=b;
while (a<>0) and (b<>0) do
if a>b then a:=a mod b else b:=b mod a;
writeln(c div (a+b));
writeln('---');
writeln(d div (a+b));
end.
//А теперь программа для тестов, выведет 1000 результатов в файл
Var
a,b,c,d,i:integer;
f:text;
begin
assign(f,'text.txt');
rewrite(f);
for i:=1 to 1000 do
begin;
a:=random(1,100);
b:=random(1,100);
c:=a;
d:=b;
while (a<>0) and (b<>0) do
if a>b then a:=a mod b else b:=b mod a;
writeln(f,c,' ',c div (a+b));
writeln(f,'=':length(inttostr(c)));
writeln(f,d,' ',d div (a+b));
writeln(f);
end;
close(f);
end.
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.
<u>Пример</u>
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6