13. Берілген программаның қатесін тексер
Program san,
Var a:integer;
Begin readln(A);
Writeln (‘tubir=’,sqrt(A):2:4);
Readln end.
14. Есептің денесі берілген, программасын
құр
……………..
……………..
X:=sqr(a)+sqr(b);
…………….
…………….
15. Программаның басы мен аяғы берілген, денесін тап
Program ikc;
Var x,a,b,c:integer;
Begin readln(x);
……………
Writeln(‘x – tyn keri cany=’,x);
Rteadln end.
16. Есептің шарты берілген, программасын құр
Төрт таңбалы бүтін х санынының цифрларының қосындысын табу программасын құр.
17. Берілген программаның қатесін анықта
Program symbol;
Var A,b:Boolean;
Begin a:=false; b:=not b; c: not a
Writeln(‘a=’,not a,’b=’,b);
Readln end.
18. Есептің программасы құрылған, шартын жаз
Program bool;
Var a,b,c,x,y:string;
Begin a:=’men’;
B:=’mektepte’; c:=’okimyn’;
X:=a+bv+c; y:=a+b;
Достарыңызбен бөлісу: |
