1. исходное число х
2.х+10
3. если (х+10)>20 то (х+10)-3
если (х+10)<20 то (х+10)+3
4.((х+10)+-3)+2
5. ответ:
например
1. число 5
2. 5+10=15
3.15+3=18
4.18+2=20
5. ответ 20
ИЛИ
1. число 15
2. 15+10=25
3. 25-3=22
4.22+2=24
5. ответ:24
8мбайт=8*1024кбайт=8192кбайт
8192/128=64кбайт/сек
4096/64=64сек
Const N = 30;
Var a:array [1..N] of integer; b,c,d,i:integer;
begin
Writeln('Vvedite massiv');
for i:=1 to N do
readln(a[i]);
b:=0; c:=0; d:=0;
for i:=1 to N do begin
if a[i] = 0 then inc(b);
if a[i] > 0 then inc(c);
if a[i] < 0 then inc(d);
end;
writeln('Kol-vo ravnih 0 - ',b);
writeln('Kol-vo bolshe 0 - ',c);
writeln('Kol-vo menshe 0 - ',d);
readln;
end.
<span>
</span>
A6=341=3*6^2+4*6^1+1*6^0=133