program tinhhieu sai vì thiếu dấu ";". Sửa lại: program tinhhieu;
Ues crt sai. Sửa lại: Uses crt;
Var t,a,b:integer sai. Sửa lại: Var t,a,b:integer;
Begen sai. Sửa lại: Begin
Writenln( 'nhap a va b'); sai. Sửa lại: Writeln('Nhap a va b');
t=a-b sai. Sửa lại: t:=a-b;
writeln('tong la, t); sai. Sửa lại: writeln('tong la ',t);
End sai. Sửa lại: End.
Hãy cho biết giá trị của a và b là bao nhiêu khi kết thúc chương trình sau:
Var a, b: integer;
Begin
a:=10 ; b:=6;
If a<b then begin a :=a+b; a := a- b end;
Writeln('a = ', a, ' b = ',b);
End.
Viết chương trình in ra màn hình các dòng chữ "Xin chao cac ban" và "Moi ban den voi Pascal
Câu 2. Hãy cho biết kết quả sau khi thực hiện chương trình sau:
|
PROGRAM Inso; USES crt; VAR M, N, i : integer; BEGIN clrscr; M := 0 ; N := 0 ; For i := 1 TO 20 do |
Begin if ( (I mod 3) = 0 ) then M := M + i ; if ( (I mod 3) = 0 ) and ( (I mod 5) = 0 ) then N := N+i ; End; writeln( ‘M=’, M, ‘N=’, N); readln END.
|
Viết chương trình a,Nhập vào một xâu kí tự b,đếm và in ra màn hình số kí tự là chữ cái(chữ hoa) có trong xâu
viết chương trình nhập vào từ bàn phím 2 số nguyên a,b đưa ra màn hình giá trị lớn nhất trong chúng
*giải gúp mình vs:
bt: Mảng A gồm N phần tử thuộc kiểu nguyên (N<=50)? Viết chương trình có sử dụng CTC thực hiện các yêu cầu sau:
a>
- Viết thủ tụp nhập giá trị cho mảng A từ bàn phím.
-Viết hàm tìm giá trị nhỏ nhất trong mảng A.
b>
- Viết thủ tục nhập giá trị cho mảng A từ bàn Phím
- Viết hàm tính tổng các phần tử là số chẳn trong mảng A.
Viết chương trình pascal T=1×2×3×..×n
