xyz;
S1:abc;
If SS1 then writeln(bakitty nomer) else writeln(bakitty nomer emes);
End.
3тапсырма. Екісанныңүлкенінтабатынбағдарламақұру
Program esep3;
Uses crt;
Var x, y, max: integer;
Begin
Clrscr;
Writeln(Eki sandy engiz…);
Readln(x,y);
If xy then max:x else max:y;
Writeln(Eki sannyn ulkeni , max);
End.
4 тапсырма. Nнатурал саны берілген. Егерnсаны тақ және оны екі еселегенде алынған сан 32767 - ден кем болса, онда ол санды 2 - ге көбейтіңдер. Басқа жағдайда санды өзгеріссіз қалдырыңдар.
Programesep4;
Usescrt;
Varn:integer;
Begin
Clrscr;
Write(n- ді енгізіңдер: );
Readln(n);
If(nmod21)and(n
Страницы: << < 4 | 5 | 6