Các câu hỏi tương tự
Để viết chương trình giải phương trình bậc nhất có dạng: ax + b = 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, x);
B. readln(a, b);
C. readln(a,x);
D. readln(b, x);
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
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 đ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
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 ạ :<
Chuyển sang C++ giúp mình với ạ 1: uses crt;var a,b,i,tsc,tsl:integer;beginclrscr;write(nhap a); readln(a);write(nhap b); readln(b);if (a0) and (b0) thenbeginif ab thenbegintsc:0;tsl:0;for i:a to b doif i mod 20 then tsc:tsc+ielse tsl:tsl+i;writeln(tong cac so chan trong khoang tu ,a, toi ,b, la: ,tsc);writeln(tong cac so le trong khoang tu ,a, toi ,b, la: ,tsl);endelse writeln(vui long nhap a be hon b);endelse writeln(vui long nhap hai so duong);readln;end.
Đọc tiếp
Chuyển sang C++ giúp mình với ạ 1:
uses crt;
var a,b,i,tsc,tsl:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if (a>0) and (b>0) then
begin
if a<b then
begin
tsc:=0;
tsl:=0;
for i:=a to b do
if i mod 2=0 then tsc:=tsc+i
else tsl:=tsl+i;
writeln('tong cac so chan trong khoang tu ',a,' toi ',b,' la: ',tsc);
writeln('tong cac so le trong khoang tu ',a,' toi ',b,' la: ',tsl);
end
else writeln('vui long nhap a be hon b');
end
else writeln('vui long nhap hai so duong');
readln;
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