Комментарии: Решаем задачи Абрамян на Паскале. Proc 9

Автор: Николай

Николай — Thu, 20 Dec 2018 18:02:25 +0000

Во втором решении при к=10, 100,… не получается.
While (K>=temp) do temp:=temp*10; так правильнее.

Автор: Anton

Anton — Mon, 11 Jan 2016 09:34:54 +0000

В ответ на olegst1975. Рад, что понравилось :)

Автор: olegst1975

olegst1975 — Mon, 11 Jan 2016 09:32:34 +0000

В ответ на Anton. Скорее как пишут в фильмах "по мотивам". Вот это - While ((K div temp)....- очень здорово!!

Автор: Anton

Anton — Mon, 11 Jan 2016 04:34:51 +0000

В ответ на olegst1975. Поправил. Можно сказать использовал ваши идеи. :)

Автор: Anton

Anton — Mon, 11 Jan 2016 03:58:13 +0000

В ответ на olegst1975. Тоже самое процедура "AddLeftDigit(D, K)", а не "AddLeftDigit()"

Автор: Anton

Anton — Mon, 11 Jan 2016 03:57:31 +0000

В ответ на olegst1975. Не нравиться, так как процедура задана в задании, довольно конкретно : "AddLeftDigit(D, K)"

Автор: Anton

Anton — Mon, 11 Jan 2016 03:49:39 +0000

В ответ на olegst1975. Поправил.

Автор: olegst1975

olegst1975 — Sun, 10 Jan 2016 21:40:13 +0000

[crayon-69d514d06e08d307082876 inline="true" ]
procedure AddLeftDigit();//как со строкой
var
   d,z:integer;
   d1:string;
  begin
    readln(d);
    k:=strtoint(inttostr(d)+inttostr(k));
    writeln(k);
  end;

var
 i,k:integer;
begin
  read(k);
  for i:=1 to 2 do AddLeftDigit();  
end.

[crayon-69d514d06e08d307082876 inline="true" ]

procedure AddLeftDigit();//как со строкой

var

d,z:integer;

d1:string;

begin

readln(d);

k:=strtoint(inttostr(d)+inttostr(k));

writeln(k);

end;

var

i,k:integer;

begin

read(k);

for i:=1 to 2 do AddLeftDigit();

end.

[/crayon]

Автор: olegst1975

olegst1975 — Sun, 10 Jan 2016 21:35:38 +0000

строка 9 должна иметь вид

[crayon-69d514d06e0c5716744232 inline="true" ]
 while k1<>0 do// определяем порядок К

1 2	[crayon-69d514d06e0c5716744232 inline="true" ] while k1<>0 do// определяем порядок К

[/crayon]

Автор: olegst1975

olegst1975 — Sun, 10 Jan 2016 21:31:53 +0000

[crayon-69d514d06e0f8729023757 inline="true" ]
procedure AddLeftDigit();
var
   d,k1,z:integer;
  begin
    readln(d);
    k1:=k;
    z:=1;
    while k1<>0 do//определяем порядок К
      begin
      z:=z*10;
      k1:=k1 div 10;
      end;
    k:=k+d*z;
    writeln(k);
  end;

var
 i,k:integer;
begin
  read(k);
  for i:=1 to 2 do AddLeftDigit();  
end.

[crayon-69d514d06e0f8729023757 inline="true" ]

procedure AddLeftDigit();

var

d,k1,z:integer;

begin

readln(d);

k1:=k;

z:=1;

while k1<>0 do//определяем порядок К

begin

z:=z*10;

k1:=k1 div 10;

end;

k:=k+d*z;

writeln(k);

end;

var

i,k:integer;

begin

read(k);

for i:=1 to 2 do AddLeftDigit();

end.

[/crayon]