Program mas;var i,k,sum:integer; a:array [1..1000] of integer;beginfor i:=1 to 1000 dobegin;readln(a[i]);if a[i]=0 then break;end;k:=0;sum:=0;for i:=1 to 1000 dobegin;sum:=sum+a[i];if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]<>0) thenk:=k+1;end;writeln('summa= ',sum);writeln('kolichestvo=',k);readln;end.
Походу я за вас тест решаю:D
К обратимым алгоритмам. Мадам,вы мне должны х3
Ввод: a ^ b ^ c С/П.
П0 -> П1 -> П2 ИП1 ИП0 + + 2 / П3 ИП0 - ИП3 ИП1 - ИП3 ИП2 - * * ИП3 / пи * С/П
Готово.......................