)вычислите значение целочисленной переменной с при а=26 и b=6 b: =mod(a,b)+4 c: =mod(a,b)+1 нужна полностью - id277851220210530 от Даша182005 30.05.2021 21:33

Question

Информатика: )вычислите значение целочисленной переменной с при а=26 и b=6 b: =mod(a,b)+4 c: =mod(a,b)+1 нужна полностью написанная программа.

Даша182005 · Accepted Answer

Текст программы (Pascal)
var
a,b,c,d,e:byte;
k:integer;
begin
k:=0;
for a:=1 to 9 do begin
    for b:=0 to 9 do
      if b<>a then begin
        for c:=0 to 9 do
          if (c<>a) and (c<>b) then begin
            for d:=0 to 9 do
              if (d<>a) and (d<>b) and (d<>c) then begin
                e:=0;
                repeat
                  if a*c-c*e=a-b+c+d+e then Inc(k);
                  e:=e+2
                until e<9
              end
          end
      end
end;
Writeln(k)
end.

Тестовое решение:
190

)вычислите значение целочисленной переменной с при а=26 и b=6 b: =mod(a,b)+4 c: =mod(a,b)+1 нужна полностью написанная программа.

MOGZ ответил