Program n1;
var n,sum,p: integer;
begin
readln(n);
sum:=0;
p:=1;
while n<>0 do
begin
sum:=sum+n mod 10;
p:=p*(n mod 10);
n:= n div 10;
end;
writeln('сумма цифр: ',sum);
write('произведение: ',p);
end.

0 0

3 года назад

Дан одномерный массив B из N элементов, значения которых находятся в диапозоне от 0 до 325. 1) Заменить все чётные элементы на и

Ancha-anka [31]

1) program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin
   for i:=1 to n do
if B[i] mod 2=0    then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.

2) </span>program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin   for i:=1 to n do
if (B[i] mod 2=0) and (i mod 2<>0)
then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.</span>

0 0

4 года назад

На далекую планету приземлился робот и начал собирать себе друга. Каждый день количество роботов удваивалось, и через 14 дней им

ilovenesquik [14]

Логично же , 7...........

0 0

4 года назад