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


Информатика пәнінен жасалған есептер



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

Информатика пәнінен жасалған есептер
І-кезең
Берілген футбол командалары аттарын кері шығару программасы
Program Kat12;
Const T:Array[1..5] of String=(‘Tobol’,’Kaisar’,’Irtysh’,’Taraz’,’Kairat’);
Var K,I:Byte;S:Char;P:Array[1..5] Of String;
Begin For K:=1 to 5 do Write (T[K]:7);Writeln;
For K:=1 To 5 Do Begin P[K]:=’’;
For I:=Length(T[K]) Downto 1 Do P[K]:=P[K]+Copy(T[K],I,1) End;
Writeln (‘Gana massiv:’);
For K:=1 to 5 do Write (P[K]:7);
Readln End.
ІІ-кезең
Program Kat15;
Var S:String;X,C:Integer;
Begin Writeln (‘matin engiz’);Readln(Y);
Val(S,C,X);
If C<>0 Then Write (‘San emes’)
Else If X Mod 9=0 Then Write (‘9-ga bolinedi’)
Else Write (‘9-ga bolinbeidi’);
Readln End.
Берілген мәтіннен санның 9-ға бөлінетіндігін ,бөлінбейтіндігінанықтайтын программа



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




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

    Басты бет