4. задан массив x[1: n]. какое условие надо поставить вместо многоточия, чтобы найти в переменной s сумму элементов массива, десятичная запись которых заканчивается на 4? вводите ответ без пробелов. s: = 0 нц для k от 1 до n если то s: = s + x[k] все кц ответ: в кумире

Program p452; var   a,b,m,d: integer; begin   write('введите размеры форточки (а,b) в см: ');   read(a,b);   write('введите диаметр головы васи в см: ');   read(d);   if a< b then m: =a+2 else m: =b+2;   { +2 - это зазор по 1 см с обоих сторон }   if d< =m then writeln('голова проходит')   else writeln('голова не проходит') end. тестовое решение: введите размеры форточки (а,b) в см: 25 40 введите диаметр головы васи в см: 23 голова проходит program p453; var   a,b,c,x,y,m1,m2,n1,n2: integer; begin   write('введите размеры кирпича в см (a,b,c): ');   read(a,b,c);   write('введите размеры отверстия в см (x,y): ');   read(x,y);   if a< b then       if a< c then begin           m1: =a;           if b< c then m2: =b else m2: =c       end       else begin m1: =c; m2: =a end   else       if b< c then begin           m1: =b;           if a< c then m2: =a else m2: =c       end       else begin m1: =c; m2: =b end;   if x< y then begin n1: =x; n2: =y end   else begin n1: =y; n2: =x end;   if (m1< =n1) and (m2< =n2) then writeln('кирпич пройдет в отверстие')   else writeln('кирпич не пройдет в отверстие') end. тестовое решение: введите размеры кирпича в см (a,b,c): 10 4 12 введите размеры отверстия в см (x,y): 5 9 кирпич не пройдет в отверстие program p454; var   a,b: integer; begin   write('введите значения а и b: '); read(a,b);   writeln('размеры чемодана ',3*a,'x',2*a,'x',a);   writeln('размеры коробки ',3*b,'x',2*b,'x',b);   if b< a then writeln('коробка поместится в чемодан')   else writeln('коробка не поместится в чемодан') end. тестовое решение: введите значения а и b: 18 16 размеры чемодана 54x36x18 размеры коробки 48x32x16 коробка поместится в чемодан