Uses crt;
var pr,sum,e,d,s,t,a:integer;
begin
readln(a);
e:=a mod 10;
d:=(a div 10) mod 10;
s:=(a div 100) mod 10;
t:=a div 1000;
pr:=1;
sum:=0;
if e mod 2 =0 then sum:=sum+e else pr:=pr*e;
if d mod 2 =0 then sum:=sum+d else pr:=pr*d;
if s mod 2 =0 then sum:=sum+s else pr:=pr*s;
if t mod 2 =0 then sum:=sum+t else pr:=pr*t;
writeln(sum);
writeln(pr);
end.
Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>
Формулы в столбцах а исходные данные можно прописать ниже, решение автозаполнением
4) Для кодирования некоторой последовательности, состоящей из букв А, Б, В, Г, Д, Е, Ж, З, И, Й. решили использовать неравномерн
олег36
Сначала отсортируем последовательность и получим:
0000,0001,0010,0011,0110,0111,1011,1100,1111
В данной последовательности минимальное не использованное число - 0100