1) Viết chương trình so sánh hai số a và b theo hai dạng (đủ, thiếu)

2) Cho đoạn chương trình sau:

Program sua loi;

var a,b,s =real

Begin

write ('nhap a=') , readln('a');

write (nhap b=') , readln(b')

s:= (a*b)/2;

write ('s=s);

readln

End.

Program tong_so_le;

Uses crt;

Var S,N,I:Integer;

Xữa chương trình sau( nếu sai)

Begin

Clrscr;

Write('Nhap N ');Readln(N);

S:=0;

For I:=1 to N do If (I mod 2<>0) then

S:=S+I;

Writeln('Tong cac so le la ',S); Readln;

End.

Giup mik nha các bn

Thanks

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh;

usescrt;

var A, B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’); readln(A);

writeln(‘Nhap so B: ‘); readln(A);

if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)

readln;

End.

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh

uses crt;

var A B: integer;

begin

clrscr;

writeln(‘Nhap so A: ’) readln(A);

writeln(‘Nhap so B, khac so A: ‘); readln(B);

if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

end.

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program So_Sanh;

uses crt

var A: B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’);

readln(B);

writeln(‘Nhap so B, khac so A: ‘);

readln(B);

if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

End.

Hãy chọn kết quả đúng của đoạn chương trình sau.

s := 0; for i:= 1 to 10 do s:=s + i; Write(s);

A. 49

B. 45

C. 50

D. 55

Một số câu lệnh trong ct sau đây viết ko đúng, em hãy sửa lại những lỗi sai

program So_sanh

usercrt;

var A,B=interger;

Begin clrscr;

writeln('Nhap so A:'); readln(A);

writeln('Nhap so B:'); readln(B);

if A <> B then writeln('A',' khac ',B) else writeln(B,'=' ,A)

readln

End.

1.Cho đoạn chương trình sau :

S:= 0 ; n:= 0 While S <= 7 do

begin n:= n+1; S:= S+n ; end ;

a)Tính số vòng lặp.

b)Sau khi thực hiện chương trình giá trị biến S bằng bao nhiêu?