Физика пәнінен алынған есептер 1. Программа құрылған, шартын өзің жаз. Program tok;
Var I,U,A:integer; t:real;
Begin read(I,U,A)
t:=sqr(A)/sin(U)+I;
write(t);
end.
2. Құрылған программаның қатесін тексер Program tok1;
Var I,U,A: integer;
Begin readln(I,U);
t:=i*U mod 15+a;
writeln(t);
end.
3. Программа денесі берілген, толықтыр ………….
………….
Y:=sqrt(x/(a*tan(b)+c)-);
………….
………….
4. Есептің шарты берілген, программасын құр. Ток күші болғанда тасымалдау қаншф уақытқа созылады.
5. Программаның басы мен аяғы берілген, денесін тап. Program sum;
Var a,b:integer; t:real;
Begin read(a,b);
……………..
Write(t);
End.