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

Автор: asdfg

asdfg — Sat, 28 Aug 2021 14:26:16 +0000

В ответ на asdfg. это 100% рабочий код для текст 59. Протестирован в PascalABC.

Автор: asdfg

asdfg — Sat, 28 Aug 2021 11:11:48 +0000

var
s,n,st,sc:string;
f:text;
c:char;
i,cx,x,err:integer;
begin
  readln(s);
  readln(n);
  assign (f,n);
  reset(f);
  while not eof(f) do
  begin
    cx:=0;
    
    while not eoln(f) do
    begin
    read(f,c);
    inc(cx);
    sc:=copy(s,cx,1);
    val(sc,x,err);
    if (ord(c) >= 1072) and (ord(c) <= 1103) then
       if ord(c)+x >1103 then 
                               c:=chr(1071+(x-(1103-ord(c))))
                         else 
                               c:=chr(ord(c)+x);
    if (ord(c) >= 1040) and (ord(c) <= 1071)  then 
        if ord(c)+x >1071 then 
                               c:=chr(1039+(x-(1071-ord(c))))
                          else
                               c:=chr(ord(c)+x);
    write(c);
    if cx=10 then cx:=0;
    end; 
    readln(f);
    writeln;
    end;
end.

var

s,n,st,sc:string;

f:text;

c:char;

i,cx,x,err:integer;

begin

readln(s);

readln(n);

assign (f,n);

reset(f);

while not eof(f) do

begin

cx:=0;

while not eoln(f) do

begin

read(f,c);

inc(cx);

sc:=copy(s,cx,1);

val(sc,x,err);

if (ord(c) >= 1072) and (ord(c) <= 1103) then

if ord(c)+x >1103 then

c:=chr(1071+(x-(1103-ord(c))))

else

c:=chr(ord(c)+x);

if (ord(c) >= 1040) and (ord(c) <= 1071) then

if ord(c)+x >1071 then

c:=chr(1039+(x-(1071-ord(c))))

else

c:=chr(ord(c)+x);

write(c);

if cx=10 then cx:=0;

end;

readln(f);

writeln;

end;

end.

Автор: asdfg

asdfg — Sat, 28 Aug 2021 10:24:50 +0000

переписал строки вывода не в файл а на экран, вот что получается(совсем не то что требуется):
0 1
— 1 2
2 3
З 3 4
д 4 5
р 5 6
а 6 7
в 7 8
с 8 9
т 9 10
в 10 1
у 11 2
й 12 3
, 13 4
14 5
И 15 6
а 16 7
, 17 8
18 9
— 19 10
20 1
с 21 2
к 22 3
а 23 4
з 24 5
а 25 6
л 26 7
27 8
К 28 9
р 29 10
и 30 1
с 31 2
т 32 3
о 33 4
ф 34 5
е 35 6
р 36 7
37 8
Р 38 9
о 39 10
б 40 1
и 41 2
н 42 3
, 43 4
44 5
о 45 6
т 46 7
к 47 8
р 48 9
ы 49 10
в
0 1
д 1 2
в 2 3
е 3 4
р 4 5
ь 5 6
6 7
и 7 8
8 9
в 9 10
ы 10 1
й 11 2
д 12 3
я 13 4
14 5
н 15 6
а 16 7
17 8
д 18 9
в 19 10
о 20 1
р 21 2
. 22 3
23 4
— 24 5
25 6
К 26 7
а 27 8
к 28 9
29 10
т 30 1
ы 31 2
32 3
с 33 4
е 34 5
б 35 6
я 36 7
37 8
ч 38 9
у 39 10
в 40 1
с 41 2
т 42 3
в 43 4
у 44 5
е 45 6
ш 46 7
ь 47 8
?

0 1
— 1 2
2 3
С 3 4
н 4 5
е 5 6
г 6 7
7 8
в 8 9
с 9 10
е 10 1
11 2
и 12 3
д 13 4
е 14 5
т 15 6
, 16 7
17 8
— 18 9
19 10
м 20 1
р 21 2
а 22 3
ч 23 4
н 24 5
о 25 6
26 7
с 27 8
к 28 9
а 29 10
з 30 1
а 31 2
л 32 3
33 4
И 34 5
а 35 6
.

0 1
— 1 2
2 3
Д 3 4
а 4 5
, 5 6
6 7
д 7 8
а 8 9
.

0 1
— 1 2
2 3
И 3 4
4 5
м 5 6
о 6 7
р 7 8
о 8 9
з 9 10
.

0 1
— 1 2
2 3
Д 3 4
а 4 5
?

0 1
— 1 2
2 3
Д 3 4
а 4 5
, 5 6
6 7
— 7 8
8 9
с 9 10
к 10 1
а 11 2
з 12 3
а 13 4
л 14 5
15 6
И 16 7
а 17 8
. 18 9
19 10
— 20 1
21 2
О 22 3
д 23 4
н 24 5
а 25 6
к 26 7
о 27 8
, 28 9
29 10
— 30 1
31 2
д 32 3
о 33 4
б 34 5
а 35 6
в 36 7
и 37 8
л 38 9
39 10
о 40 1
н 41 2
, 42 3
43 4
н 44 5
е 45 6
м 46 7
н 47 8
о 48 9
г 49 10
о
0 1
п 1 2
р 2 3
о 3 4
с 4 5
в 5 6
е 6 7
т 7 8
л 8 9
е 9 10
в 10 1
, 11 2
12 3
— 13 4
14 5
з 15 6
е 16 7
м 17 8
л 18 9
е 19 10
т 20 1
р 21 2
я 22 3
с 23 4
е 24 5
н 25 6
и 26 7
й 27 8
28 9
у 29 10
30 1
н 31 2
а 32 3
с 33 4
34 5
в 35 6
36 7
п 37 8
о 38 9
с 39 10
л 40 1
е 41 2
д 42 3
н 43 4
е 44 5
е
0 1
в 1 2
р 2 3
е 3 4
м 4 5
я 5 6
6 7
н 7 8
е 8 9
9 10
б 10 1
ы 11 2
л 12 3
о 13 4
.

0 1
— 1 2
2 3
Ч 3 4
т 4 5
о 5 6
6 7
с 7 8
л 8 9
у 9 10
ч 10 1
и 11 2
л 12 3
о 13 4
с 14 5
ь 15 6
, 16 7
17 8
И 18 9
а 19 10
?

0 1
— 1 2
2 3
Н 3 4
и 4 5
ч 5 6
е 6 7
г 7 8
о 8 9
, 9 10
10 1
К 11 2
р 12 3
и 13 4
с 14 5
т 15 6
о 16 7
ф 17 8
е 18 9
р 19 10
20 1
Р 21 2
о 22 3
б 23 4
и 24 5
н 25 6
. 26 7
27 8
Н 28 9
и 29 10
ч 30 1
е 31 2
г 32 3
о 33 4
34 5
с 35 6
у 36 7
щ 37 8
е 38 9
с 39 10
т 40 1
в 41 2
е 42 3
н 43 4
н 44 5
о 45 6
г 46 7
о 47 8
.
0 1
Т 1 2
ы 2 3
, 3 4
4 5
к 5 6
о 6 7
н 7 8
е 8 9
ч 9 10
н 10 1
о 11 2
, 12 3
13 4
н 14 5
е 15 6
16 7
в 17 8
и 18 9
д 19 10
е 20 1
л 21 2
22 3
г 23 4
д 24 5
е 25 6
— 26 7
н 27 8
и 28 9
б 29 10
у 30 1
д 31 2
ь 32 3
33 4
з 34 5
д 35 6
е 36 7
с 37 8
ь 38 9
39 10
д 40 1
о 41 2
м 42 3
а 43 4
44 5
и 45 6
л 46 7
и
0 1
ч 1 2
е 2 3
г 3 4
о 4 5
— 5 6
н 6 7
и 7 8
б 8 9
у 9 10
д 10 1
ь 11 2
12 3
в 13 4
14 5
э 15 6
т 16 7
о 17 8
м 18 9
19 10
р 20 1
о 21 2
д 22 3
е 23 4
?

Автор: Anton

Anton — Sun, 30 Apr 2017 16:59:05 +0000

В ответ на Нуржан. Не... пока нету.. а терпит до вторника? тогда будет :)

Автор: Нуржан

Нуржан — Sun, 30 Apr 2017 12:08:06 +0000

Есть код на с++??