Bài 3: Cấu trúc chương trình
Các câu hỏi tương tự
viết chương trình tính và đưa ra mh tổng s=1²+3²+5²..+99² mọi ng giúp mình với
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.
Đọc tiếp
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.
|
câu 1 . so sánh cấu trúc của chương trình con là thủ tục và hàm
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
Đọc tiếp
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
Vd3: Viết chương trình in ra màn hình danh sách họ và tên các bạn trong tổ của mình
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
Viết chương trình quả lý điểm của một lớp với nội dung sau:
a,Nhập hồ sơ sinh viên bao gồm họ tên,năm sinh,quê quan,môn 1, môn 2,môn 3,tổng điểm
b,tổng điểm bằng tổng của môn 1,môn 2,môn3
c,In ra danh sách sinh viên tổng điểm theo trật tự giảm dần
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 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