Câu 6:Cho đoạn chương trình:
Var a,b: integer;
Begin
Writeln(‘Nhap a va b: ’); readln(a, b); a:= sqr(b); b:=sqrt(a);
Writeln(‘Gia tri moi cua a= ’,a,‘ cua b= ’,b);
Readln; End.
Chạy chương trình trên giá trị của a và b sẽ:
A. a = b 2 , b : giữ nguyên; B. a : giữ nguyên, b = a 2 ;
C. a = b; D. Không tính được.
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 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
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.
|
IF a>5 THEN b:=2008 ELSE b:=2007;
Khi a nhận giá trị là 6 thì b nhận giá trị nào?
*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 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 một số nguyên x. Tính và đưa ra màn hình giá trị y = ∛x + √x + 1. *
Câu trả lời của bạn
1. Cho mảng B một chiều gồm M phần tử. Viết chương trinh nhập giá trị vào cho mảng, sau đó in ra màn hình các phần tử các phần tử có giá trị là chẵn và là bội của 4 có trong mảng.
2. Viết chương trình nhập vào xâu S bất kỳ từ bàn phím. In ra màn hình các chữ cái có trong xâu, nếu không có thì in ra màn hình dòng thông báo ‘khong co ky tu nao la chu cai co trong xau’.
giúp em với ạ!!!!! em đang cần gấppp
