|
then goto 1; writeln(P); endBog'liq @AKT Official Informatika o\'qituvchilari uchun malaka test savollari FIW2014 Booklet, adabiyot slayd 8, alifbe darsim, all tenses form , Перенаправленный документ принтера удаленного рабочего стола, Документ 25, отработка титулка, Возможности программ обработки текстовой информацииthen goto 1; writeln(P); end.
* 16
Hisob natijasini aniqlang? begin
A:=10; B:=8; C:= 6; if (A>B) and
(C>B) then y:=A+B-C else y:=A-B+C;
writeln(y); end.
* 8
Hisob natijasini aniqlang?
begin
a:=12; b:=14; c:=10; if (a>b) or (b>c)
then y:=a+b-c else y:=a-b+c;
writeln(y); end.
* 16
Quydagi programma nimani chop
etadi?. VAR X,Y: REAL; BEGIN
X:=25; Y:=SQRT(SQR(X)); Y:=X-Y;
WRITE(Y) END.
* 0
PASKAL-programmaning ishlashi
natijasida nima hisoblanadi? program
m1; var x,y,z: real; begin read(x,y,z); if
x
write(exp(3*ln(abs(x)))) end.
* x , u , z sonlarning kattasining kubi;
@AKT_Official
Quydagi ifoda a=5, b=15, c=2 bo’lsa
qanday natija beradi? ( a+ b div c * 4 )
mod 5 div 3
* 1
Operasiyalar natijasini to`g`ri tanlang.
round(trunc(-5,875) +0.8)+5
* -1
Operasiyalar bajarilganda j ni
qiymatini tugri tanlang. j:= round
(frac(3,875))*5 +4
* 9
U ning qiymati nimaga teng?. VAR
X,Y:REAL; BEGIN X:=5.7; IF X<2
THEN Y:=sqr(X) ELSE;
IF X<5
THEN Y:=2 ELSE Y:=X-5;
Y:=ROUND(Y); END.
* 1
Z ning qiymati nimaga teng? begin
a:=2; b:=17; c:=6; Z:=b div a + b mod c;
write(z) end.
* 13
Programma natijasini to’g’ri tanlang.
VAR i:INTEGER; C:CHAR; BEGIN
i:=0; FOR C:='a' TO 'd' DO i:=i+1;
write(i); END.
* 4
|
| |