Переводим целую часть 20410 в 7-ую систему последовательным делением на 7:
204/7 = 29, остаток: 1
29/7 = 4, остаток: 1
4/7 = 0, остаток: 4
20410 = 4117
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('>');
var n:=s.Length;
for var i:=n downto 1 do
Writeln((i-1)*' '+s[i:n+1].Inverse+s[i:n+1])
end.
<u>Пример</u>
> Геленджик
кк
киик
кижжик
киждджик
киждннджик
кижднеенджик
кижднелленджик
кижднелееленджик
кижднелеГГеленджик
//Pascal ABC.NET v3.0 сборка 1111
var
ar:array of integer;
n:integer;
begin
n:=0;
setlength(ar,n+1);
readln(ar[n]);
while ar[n]<>0 do
begin
inc(n);
setlength(ar,n+1);
readln(ar[n]);
end;
sort(ar);
ar.Print(' ');
<span>end.</span>
Program ex;
var a,b,c,s,k:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите первое второе');
readln(b);
writeln('Введите первое третье');
readln(c);
if a>0 then
begin k:=k+1;
s:=a;
end;
if b>0 then
begin
s:=s+b;
k:=k+1;
end;
if c>0 then
begin
k:=k+1;
s:=s+c
end;
writeln('Сумма=',s);
writeln('Количество положительных чисел=',k)
end.
При последовательном режиме выполняется сначала программа А, за 10 минут, а затем программа Б за 20 минут, в сумме их время получается 30минут. При мультипрограммировании программы выполняются не последовательно, а вместе, т.е. время на их выполнение будет лежать в промежутке от 20 до 30минут, где Т будет равно времени, лежащему в промежутке, за которое исполнитель выполнит обе задачи.