Các câu hỏi tương tự
Để viết chương trình giải phương trình bậc hai có dạng: ax2 + bx + c=0 (a#0), em cần phải thực hiện lệnh nhập vào từ bàn phím các biến nào sau đây:
A. readln(a, b, c, x1, x2);
B. readln(a, b, c);
C. readln(x1, x2);
D. readln(a, b, c, x);
Cho đoạn chương trình:readln(x,y);IF x y THEN F: 2*x – y ELSEIF x y THEN F: sqr(x) + sqr(y) ELSE F: 2*x;Nếu nhập vào từ bàn phím x0 và y0 thì giá trị của F là: A. 13 B. 6 C. 4 D. 0
Đọc tiếp
Cho đoạn chương trình:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=0 và y=0 thì giá trị của F là:
A. 13
B. 6
C. 4
D. 0
Viết chương trình:Nhập vào một xâu kí tự.Đếm và in ra màn hình số kí tự là số có trong xâu.Var a: string; I,dem: integer;Begin Readln(a); Dem:0; For i:1 to length(a) do If (‘0’a[i]) and (a[i]’9’) then dem:dem+1; Writeln(dem); Readln End.
Đọc tiếp
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là số có trong xâu.
Var a: string;
I,dem: integer;
Begin
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘0’<=a[i]) and (a[i]<=’9’) then dem:=dem+1;
Writeln(dem);
Readln
End.
cho chương trình: program vd ; var a,b,c:integer; begin readln(a,b,c); writeln((a+b)/2:2:0,a+b+c,(a*b)); end
Cho đoạn chương trình sau:readln(x,y); IF x y THEN F: 2*x – y ELSEIF x y THEN F: sqr(x) + sqr(y) ELSE F: 2*x;Nếu nhập vào từ bàn phím x3 và y2 thì giá trị của F là: A. 13 B. 6 C. 4 D. 0
Đọc tiếp
Cho đoạn chương trình sau:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=3 và y=2 thì giá trị của F là:
A. 13
B. 6
C. 4
D. 0
Cho đoạn chương trình sau:readln(x,y);IF x y THEN F: 2*x – y ELSEIF x y THEN F: sqr(x) + sqr(y) ELSE F: 2*x;Nếu nhập vào từ bàn phím x3 và y3 thì giá trị của F là: A. 13 B. 6 C. 4 D. 0
Đọc tiếp
Cho đoạn chương trình sau:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=3 và y=3 thì giá trị của F là:
A. 13
B. 6
C. 4
D. 0
Cho đoạn chương trình sau:readln(x,y);IF x y THEN F: 2*x – y ELSEIF x y THEN F: sqr(x) + sqr(y) ELSE F: 2*x;Nếu nhập vào từ bàn phím x2 và y3 thì giá trị của F là: A. 13 B. 6 C. 4 D. 0
Đọc tiếp
Cho đoạn chương trình sau:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=2 và y=3 thì giá trị của F là:
A. 13
B. 6
C. 4
D. 0
Cho đoạn chương trình sau:readln(x,y); IF x y THEN F: 2*x – y ELSEIF x y THEN F: sqr(x) + sqr(y) ELSE F: 2*x;Nếu nhập vào từ bàn phím x3 và y2 thì giá trị của F là: A. 13 B. 6 C. 4 D. 0
Đọc tiếp
Cho đoạn chương trình sau:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=3 và y=2 thì giá trị của F là:
A. 13
B. 6
C. 4
D. 0
Câu 1: Nhập vào 3 cạnh a,b,c của 1 tam giác. Viết chương trình cho biết đây có phải là 1 tam giác vuông không?
Câu 2: Viết chương trình tính kết quả của a chia b, với a,b được nhập từ bàn phím. Nếu trường hợp b<0 thì in thông báo phép chia không thực hiện được.
Giúp iem với ạ :<