Cho a bằng 9 b bằng 8 .tìm kết quả của biến s sau mỗi câu lệnh sau đây, với với ban đầu giá trị của s bằng 0
a) if (a+b) mod 2=0 then s:=b else s:=a;
cho a=9,b=8.tim gia tri cua S sau moi câu lệnh dưới đây,với ban đầu giá trị của S=0
A.If (a+b) mod 2=0 then S:=a*b;
B.If (a>=b) or (a>9) then S:=b else S:=a;
thanks
Câu 19: Câu lệnh Pascal nào sau đây viết sai?
A. if x:= 5 then a = b;
B. if x > 4; then a:= b;
C. if x > 4 then a:=b; m:=n;
D. if x > 4 then a:=b; else m:=n;
Các câu lệnh và khai báo sau trong pascal đúng hay sai?hãy chỉ ra lỗi sai nếu có
a) For i:=1 to 10; do x:=x+1;
b) For i: =1 to 10 do writeln('A')
c) Y:=5; while Y:=10 do Y:=Y+20;
d) s :=0; n :=0; ; while s<= 10 do n :=n+1;s:=s+n;
e) for i =100 to 20 do x :=x+2;
f) for i :=2 to 20 do x:=x+1;
1. Từ khoá delay trong chương trình có tác dụng để làm gì. 2. Từ khoá readln trong chương trình có tác dụng gì. 3. Cho 1 đoạn chương trình sau write (‘10/2=‘, 10/2:0:2) hãy cho biết :0 trong phần :0:2 có ý nghĩa gì 4. Giữa readln là delay giống nhau là đều tạm ngưng chương trình. Vậy sự khác nhau giữa readln và delay
Mọi người ơi giúp minh trả lời câu hỏi học kì này vơi mai minh thi rùi
1 câu lệnh If ..then nào dưới dây viết đúng đáp án
A.if a>b then a:=b;
B if-then a>b,a:=b;
C if-then (a>b,a:=b)
D if(a>b)then a:=b
2.em hãy viết thuật toán tính tổng các số chẵn của 20 số tự nhiên đầu tiên
3 viết chương trình tính điện tích chu của hcn với đồ dài các cạnh đc nhập từ bàn phím
Cho đoạn chương trình sau :
Var a,b : integer;
Begin
a :=5;
if a>8 then b :=3
else b :=5;
end.
Em hãy cho biết giá trị khi a nhận giá trị là 5 thì b nhận giá trị là mấy
Bạn Tuấn viết chương trình như sau:
program Tinh toan
uses crt;
var
x, y : integer;
tb = real;
thongbao : integer;
const a := 2;
begin
clrscr;
thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
write(‘Nhap gai tri cho x = ‘); readln(x);
write(‘Nhap gia tri cho y = ‘); readln(y);
tb = (x+y)/a;
writeln(thongbao, tb:2:1);
readln;
end.
a. Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng.
b. Hãy phân biệt tên biến, tên hằng trong chương trình trên.
Cho biết kết quả của c sau câu lệnh sau?
a:= 5; b:= 7;
If a + b < 8 then c := a – b else c := b – a;
Viết ct khai báo biến mảng nhập số N nhập giá trị, tính tổng các số lớn hơn 10 có trong dãy in kết quả
Hưỡng dẫn
Var I, n: integer;
A:array [1.. 100] of integer;
For i:= 1 to n do
Tổng=0
For i:= 1 to n do
If m[i] >10 then
Tổng:= tong + m[i]
For i:= 1 to n do