Почему не увеличивается k, когда a[i] mod 2 0 var s,i,p:char; v1,v2:string; k:integer; a:array[ A .. - id1079232820210521 от kirilenkok1 21.05.2021 09:38

Question

Информатика: Почему не увеличивается k, когда a[i] mod 2 0 var s,i,p:char; v1,v2:string; k:integer; a:array[ A .. Z ] of integer; begin k:=0; v1:= ; v2:= ; for i:= A to Z do a[i]:=0; repeat read(s); s:=upcase(s); if s in[ A .. Z ] then inc(a[s]); until s= . ; for i:= A downto Z do begin if a[i] mod 2 0 then begin inc(k); p:=i; end; //не увеличивает k if k=2 then begin writeln( No ); break; end; end; if (k=0)or(k=1) then begin writeln( DA ); for i:= Z downto A do while a[i] 0 do begin v1:=v1+i; v2:=i+v2; a[i]:=a[i]-2;

kirilenkok1 · Accepted Answer

Можно написать программу на каком-либо языке программирования. Например Python:

n = 66
count = 0
for i in range(67):
for j in range(34):
   for k in range(14):
for l in range(7):
if n == i*1+j*2+k*5+l*10:
count += 1
print('Всего

Та же программа на языке Pascal:

var i,j,k,l,n,count:integer;

begin
n := 66;
count := 0;
for i:=0 to 66 do
    for j:=0 to 33 do
        for k:=0 to 13 do
            for l:=0 to 6 do
                if n = (i*1+j*2+k*5+l*10) then count += 1;
writeln('Всего
end.

ответ: 700

MOGZ ответил