3339
Dastur Yozishni O'rganamiz!!!
Mavzu fayllari (3)
Xabarlar
ANVARINFO, # ANVARINFO (11.02.2019 / 23:21)
Var a,b,c: integer;
begin
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
writeln('k=' , a b c);
end.
a=5
b=5
c=5
Savol: k-?Javob: k-15
Var a,b,c: integer;
begin
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
writeln('k=' , a b c);
end.
a=5
b=5
c=5
Savol: k-?Javob: k-15
ANVARINFO, Yana misoliy dasturlar bering.IDE da yozib koryapman.Boshqa DT larni bilaman.Pascal problema.
Var a,b: integer;
c: byte;
begin
write('a=');
read(a);
write('b=');
read(b);
writeln('c=' , a*b);
end.
a=5
b=-3
Savol: c-?
c: byte;
begin
write('a=');
read(a);
write('b=');
read(b);
writeln('c=' , a*b);
end.
a=5
b=-3
Savol: c-?
Javob Xato chiqadi ekranda chunki c= 0...255 gacha qiymat qabul qiladi "-" qila olmaydi
Var a,b,c: integer;
begin
a:=36;
b:=49;
c:=sqrt(a) sqrt(b);
write(c);
end.
Natija-?
begin
a:=36;
b:=49;
c:=sqrt(a) sqrt(b);
write(c);
end.
Natija-?
ANVARINFO, # ANVARINFO (11.02.2019 / 23:53)
Var a,b,c: integer;
begin
a:=36;
b:=49;
c:=sqrt(a) sqrt(b);
write(c);
end.
Natija-?13
Var a,b,c: integer;
begin
a:=36;
b:=49;
c:=sqrt(a) sqrt(b);
write(c);
end.
Natija-?13
Onlayn: 601 (1/600)
Forumga a'zo bo'lish
Bosh sahifa