| Vodila | Дата: Воскресенье, 26.02.2012, 19:42 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 4
Статус: Offline
| var
i: integer;
a,b,d,j,m,k: longint;
s,n: array[0..1] of longint;
const
EvenOdd: array[0..1] of string= ('even','odd');
begin
writeln('please enter limits of the interval');
write(' lower: ');
readln(a);
write(' upper: ');
readln(b);
m:= 0;
s[0]:= 0;
s[1]:= 0;
n[0]:= 0;
n[1]:= 0;
for i:=a to b do begin
j:= i;
if Odd(i) then
while j>0 do begin
d:= j mod 10;
k:= d mod 2;
inc(s[k],d);
inc(n[k]);
j:= j div 10
end
else
while j>0 do begin
d:= j mod 10;
if d>m then m:= d;
j:= j div 100
end
end;
writeln('for odd numbers:');
for i:=0 to 1 do
if n[i]=0 then
writeln(' no ',EvenOdd[i],' digits encountered')
else
writeln(' average of ',EvenOdd[i],' digits is ',s[i]/n[i]:8:6);
writeln('for even nubers:');
writeln(' max digit in even position is ',m);
writeln(' numbers which have ',m,' in an even position:');
for i:=a to b do begin
j:= i;
if not Odd(i) then
while j>0 do begin
if j mod 10=m then begin
write(i:8);
break
end;
j:= j div 100
end
end;
readln
end.
|
| |
|
|
| diamFC | Дата: Вторник, 28.02.2012, 15:36 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Правила
|
| |
|
|
Программа для построения БЛОК-СХЕМ!!!
