Инф олимпиада doc


ІІІ-кезең Қате жазылған программа



бет37/66
Дата08.02.2022
өлшемі91,93 Kb.
#123795
1   ...   33   34   35   36   37   38   39   40   ...   66
Байланысты:
1544775476 (1)

ІІІ-кезең
Қате жазылған программа
Program Kat16;
Const T:Array[1..5] Of String=(‘Tobol’,’Kaisar’,’Irtysh’,’Taraz’,’Kairat’);
Var K,I:Byte;S:Char;
Begin For K:=1 To 5 Do Write(T[K]:7);Writeln;
For K:=1 To 5 Do
For I:=1 To Trunc(Length(T[K]/2) Do
Begin S:=T[K][I];T[K][Length(T[K])-I+1];
T[K][Length(T[K])-I+1]:=S End;
Writeln(‘gana massiv futbol komandalarinin keri attarinan turadi:’);
For K:=1 To 5 Do Write(T[K]:7)
Readln End
Қатесіз дұрыс жазылған программа
Program kat16;
Const T:Array[1..5] Of String=(‘Tobol’,’Kaisar’,’Irtysh’,’Taraz’,’Kairat’);
Var K,I:Byte;S:Char;
Begin For K:=1To 5 Do Write (T[K]:7);Writeln;
For K:=1 To 5 Do
For I:=1 To Trunc(Length(T[K])/2) Do
Begin S:=T[K][I];T[K][I]:=T[K][Length(T[K])-I+1];
T[K][Length(T[K])-I+1]:=S End;
Writeln (‘gana massiv futbol komandalarinin keri attarinan turadi:’);
For K:=1 To 5 Do Write (T[K]:7);
Readln End.


Достарыңызбен бөлісу:
1   ...   33   34   35   36   37   38   39   40   ...   66




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет