Информатика пәнінен жасалған есептер
І-кезең
Берілген футбол командалары аттарын кері шығару программасы
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-ға бөлінетіндігін ,бөлінбейтіндігінанықтайтын программа
Достарыңызбен бөлісу: |
