Нет возможсти проверить. Если неправильно - напиши.
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;
end.
На единицу больше, чем максимальная из цифр в записи чисел. В данном случае максимальная цифра 3, следовательно, достаточно использовать систему счисления с основанием 4.
Нажимаешь кнопку PrtScr,а потом вставляешь в любую графическую программу (например paint). Все просто)
<em>// PascalABC.NET 3.2, сборка 1416 от 26.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function s1(a:array of integer):=a.Where(x->x mod 5=0).Sum;
function s2(a:array of integer):=a.Where(x->x.IsOdd and (x<0)).Sum;
begin
var a:=ArrRandom(80,-100,100); a.Println; Writeln;
Writeln('S1=',s1(a),', S2=',s2(a))
end.
<u>Пример</u>
81 85 -59 97 98 65 -59 -46 -69 -70 -45 -85 -5 -88 30 -30 -60 33 52 -59 79 70 -40 -51 -5 97 78 11 65 -88 -45 78 -90 90 94 0 6 4 -8 -40 49 19 58 -35 43 9 9 24 -59 73 77 31 -59 81 38 -89 24 92 1 -99 87 31 -10 -82 75 -23 -96 5 -81 -71 65 36 -60 -8 -7 -41 -89 95 7 87
S1=25, S2=-1135
Program tapsirmaC;var a,b,n,x,p:integer; input,output:text;beginp:=0;assign(input,'c.in');assign(output,'c.out');reset(input);rewrite(output);read(input,a,b,n);for x:= 1 to n dobeginif a*x mod n = b then p:=p+1;end; write(output,p);close(input); close(output); end.
