Nội dung bài học Bài 6: Câu lệnh điều kiện dưới đây chúng ta sẽ cùng nhau tìm hiểu về cấu trúc rẽ nhánh trong lập trình; cú pháp, hoạt động của các câu lệnh điều kiện dạng thiếu và dạng đủ trong Pascal;... Mời các em cùng theo dõi bài học.
Ví dụ về hoạt động phụ thuộc điều kiện:
Từ "nếu" trong các câu trên được dùng để chỉ một "điều kiện" và các hoạt động tiếp theo sau sẽ phụ thuộc vào điều kiện đó
Tóm lại: Có những hoạt động chỉ được thực hiện khi một điều kiện cụ thể được xảy ra.
Xét tính đúng hoặc sai của điều kiện trong các ví dụ về hoạt động phụ thuộc điều kiện ở phần 1:
Điều kiện | Kiểm tra | Kết quả | Hoạt động tiếp theo |
Trời mưa? | Long nhìn ra ngoài và thấy trời mưa | Đúng | Long ở nhà (không đi đá bóng) |
Em bị ốm? | Buổi sáng thức dậy, em thấy mình hoàn toàn khỏe mạnh | Sai | Em tập thể dục buổi sáng như thường lệ |
Bảng 1. Minh họa tính đúng hoặc sai của điều kiện
Ví dụ trong Tin học:
Hình 1. Ví dụ trong Tin học về tính đúng hoặc sai của điều kiện
Nếu chọn đúng thì chương trình dừng lại, chọn sai chương trình chạy tiếp.
Để so sánh ta thường sử dụng các kí hiệu toán học như: <, >, =, <>, <=, >=.
Ví dụ 1: Nếu a > b, phép so sánh đúng thì in giá trị của a ra màn hình; ngược lại, in giá trị của b ra màn hình (có nghĩa là phép so sánh cho kết quả sai).
1.4. Cấu trúc rẽ nhánh
Ví dụ 2: Một hiệu sách thực hiện đợt khuyến mãi lớn với nội dung sau: Nếu mua sách với tổng số tiền ít nhất là 100 nghìn đồng, khách hàng sẽ được giảm 30% tổng số tiền phải thanh toán.
Mô tả hoạt động tính tiền cho khách:
Ví dụ 3: Trong ví dụ 2, chúng ta biết rằng nếu tổng số tiền không nhỏ hơn 100 nghìn đồng, khách hàng sẽ được giảm 30% tổng số tiền phải thanh toán. Giả sử thêm vào đó, cửa hàng giảm 10% cho những khách chỉ mua với tổng số tiền không đến 100 nghìn đồng.
Mô tả hoạt động tính tiền cho khách:
LƯU Ý:
Hình 2. Cấu trúc rẽ nhánh dạng thiếu
Hình 3. Cấu trúc rẽ nhánh dạng đủ
Cú pháp:
If < Điều kiện > then
< Câu lệnh >;
Hoạt động: Chương trình sẽ kiêm tra điều kiện. Nếu điều kiện được thoã mãn, chương trình sẽ thực hiện câu lệnh sau từ khoá then, ngược lại câu lệnh đó bị bỏ qua.
Cú pháp:
If < Điều kiện > then
< Câu lệnh 1 >
Else
< Câu lệnh 2 >;
Hoạt động: Chương trình sẽ kiểm tra điều kiện. Nếu điều kiện được thoã mãn, chương trình sẽ thực hiện câu lệnh 1 sau từ khoá then, ngược lại câu lệnh 2 sẽ được thực hiện.
Giả sử cần viết chương trình nhập một số tự nhiên vào máy tính và ghi ra màn hình kết quả số đã nhập là số chẵn hay lẻ, chẳng hạn "5 là số lẻ", "8 là số chẵn". Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
Gợi ý giải chi tiết:
Xác định bài toán:
Mô tả thuật toán:
Hãy mô tả thuật toán nhập ba số thực A, B và C từ bàn phím vào máy tính, sau đó kiểm tra ba số đó có thể là các cạnh của tam giác đều, tam giác cân hoặc tam giác vuông hay không và ghi kết quả ra màn hình.
Gợi ý giải chi tiết:
Xác định bài toán:
Mô tả thuật toán:
Sau khi học xong Bài 6: Câu lệnh điều kiện, các em cần ghi nhớ:
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 8 Bài 6 cực hay có đáp án và lời giải chi tiết.
Trong Pascal, câu lệnh điều kiện nào sau đây được viết đúng?
Câu lệnh điều kiện dạng đầy đủ là:
Hãy cho biết giá trị của biến X bằng bao nhiêu sau khi thực hiện câu lệnh:
if (45 mod 3 ) = 0 then X :=X+2;
( Biết rằng trước đó giá trị của biến X = 5)
Câu 4- 10: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Các em có thể xem thêm phần hướng dẫn Giải bài tập Tin học 8 Bài 6để giúp các em nắm vững bài học và các phương pháp giải bài tập.
Bài tập 1 trang 50 SGK Tin học 8
Bài tập 2 trang 50 SGK Tin học 8
Bài tập 3 trang 51 SGK Tin học 8
Bài tập 4 trang 51 SGK Tin học 8
Bài tập 5 trang 51 SGK Tin học 8
Bài tập 6 trang 51 SGK Tin học 8
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 8 DapAnHay
Trong Pascal, câu lệnh điều kiện nào sau đây được viết đúng?
Câu lệnh điều kiện dạng đầy đủ là:
Hãy cho biết giá trị của biến X bằng bao nhiêu sau khi thực hiện câu lệnh:
if (45 mod 3 ) = 0 then X :=X+2;
( Biết rằng trước đó giá trị của biến X = 5)
Ta có 2 lệnh sau:
x:= 8;
if x>5 then x := x +1;
Giá trị của x là bao nhiêu?
Các câu lệnh Pascal nào sau đây được viết đúng?
Để tìm giá trị lớn nhất của 2 số a, b thì ta viết:
If ... Then ... Else là:
IF a>8 THEN b:=3 ELSE b:=5;
Khi a nhận giá trị là 0 thì b nhận giá trị nào?
Chọn câu lệnh Pascal hợp lệ trong các câu sau:
Cấu trúc rẽ nhánh có mấy loại?
Em hãy nêu một vài ví dụ về các hoạt động hằng ngày phụ thuộc vào điều kiện.
Hãy cho biết các điều kiện hoặc phép so sánh sau đây cho kết quả đúng hay sai:
a) 123 là số chia hết cho 3.
b) Nếu ba cạnh a, b và c của một tam giác thỏa mãn c2 = a2 + b2 thì tam giác đó có một góc vuông.
c) 152 > 200.
d) x2 < 1.
Hai người bạn cùng chơi trò đoán số. Một người nghĩ trong đầu một số tự nhiên nhỏ hơn 10. Người kia đoán xem bạn đã nghĩ số gì. Nếu đoán đúng, người đoán sẽ được cộng thêm 1 điểm, nếu sai sẽ không được cộng điểm. Luân phiên nhau nghĩ và đoán. Sau 10 lần, ai được nhiều điểm hơn, người đó sẽ thắng.
Hãy phát biểu quy tắc thực hiện các điều kiện ở trò chơi. Hoạt động nào sẽ được thực hiện, nếu điều kiện của quy tắc đó thoả mãn? Hoạt động nào sẽ được thực hiện, nếu điều kiện của quy tắc đó không thoả mãn?
Một trò chơi máy tính rất hứng thú đối với các em nhỏ là hứng trứng. Một quả trứng rơi từ một vị trí ngẫu nhiên trên cao. Người chơi dùng các phím mũi tên \(\rightarrow\) hoặc \(\leftarrow\) để điều khiển một biểu tượng chiếc khay di chuyển theo chiều ngang để hứng quả trứng. Nếu hứng trượt, quả trứng bị rơi, vỡ và người chơi tiếp tục di chuyển khay để hứng quả trứng khác.
Điều kiện để điều khiển chiếc khay trong trò chơi là gì? Hoạt động nào sẽ được thực hiện, nếu điều kiện đó thỏa mãn? Hoạt động nào sẽ được thực hiện, nếu điều kiện đó không thỏa mãn?
Các câu lệnh Pascal sau đây được viết đúng hay sai?
a) if x:=7 then a=b;
b) if x>5; then a:=b;
c) if x>5 then; a:=b;
d) if x>5 then a:=b; m:=n;
e) if x>5 then a:=b; else m:=n;
f) if n>0 then begin a:=0; m:=-1 end else c:=a;
Sau mỗi câu lệnh sau đây:
a) if (45 mod 3)=0 then X:=X+1;
b) if X>10 then X:=X+1;
giá trị của biến X sẽ là bao nhiêu, nếu trước đó giá trị của X bằng 5?
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Nhập vào số nguyên dương a, kiểm tra xem a là số chẵn hay số lẻ.
Câu trả lời của bạn
program kiem_tra_so;
uses crt;
var a,k : integer;
begin clrscr;
write(' Nhap so a = '); readln(a);
write(' Nhap so k = '); readln(k);
If a = 2 * k then writeln(' a la so chan')
else writeln(' a la so le ');
readln;
end.
Cho biết kết quá các câu lệnh sau:
a) Biết a có giá trị là 10.
If (a mod 2 = 0) then write(a, 'chia het cho 2') else wite('khong thoa man');
b) Biết x có giá trị là 5, y có giá trị là 7
If (x >= 5) and (y >7) then x := x+2 else y := y+3
Giúp vss mai ktra học kì rồiiiii
Câu trả lời của bạn
a,Kết quả : 10 chia het cho 2
b,Kết quả : y:=10
Chúc bạn thi tốt ^^
Bài 1: viết chương trình tính chu vi và diện tích hình chữ nhật có độ dài 2 cạnh a,b (được nhập từ bàn phím)
Bài 2: viết chương trình tính chu vi và diện tích hình vuông có cạnh a được nhập từ bàn phím
bài 3: viết chương trình tính chu vi và diện tích hình tròn có bán kính R được nhập từ bàn phím
bài 4 : viết chương trình tính chu vi và diện tích hình tam giác có 3 cạnh a,b,c được nhập từ bàn phím
Bài 5: viết chương trình kiểm tra 3 số a,b,c có phải là 3 cạnh của tam giác không? Với a,b,c nguyên dương
Câu trả lời của bạn
1.
Var a , b : integer;
S , P : real;
Begin
write (' a = '); read (a);
write (' b = '); read (b);
P : = (a + b) * 2;
S : = a*b ;
write (' chu vi hinh chu nhat la ', P );
write (' dien tich hinh chu nhat la',S);
Readln;
End.
2.
Var a : integer;
P , S : real;
Begin
write (' a = '); read (a);
P : = a * 4 ;
S : = a*a;
write (' chu vi hinh vuong la ', P );
write (' dien tich hinh vuong la',S);
Readln ;
End .
Còn lại tự làm nha
Chúc bạn học tốt
Bài dễ quá mà ko bt làm sao
viết chương trình nhập vào 1 số a kiểm tra xem a là số chẵn hay số lẻ
Câu trả lời của bạn
Program Chan_le;
uses crt;
var a: integer;
begin
clrscr;
write('nhap vao so a ='); readln(a);
if ( a mod 2 = 0 ) then write(' a la so chan ')
else
write('a la so le ');
readln;
end.
1,viết chương trình in ra số lớn hơn trong 2 số (dc nhập từ bàn phím)
2,viết chương trình in ra số lớn nhất trong 4 số nhập từ bàn phím
3,viết chương trình in ra số lớn nhất trong 4 số nhập từ bàn phím với điều kiện chỉ dc dùng 2 biến
4, viết chương trình xét xem 1 tam giác có là tam giác đều hay ko khi biết 3 cạnh của tam giác
5,viết chương trình xét xem 1 tam giác có là tam giác cân hay ko khi biết 3 cạnh của tam giác
6,viết chương trình xét xem 1 tam giác có là tam giác vuông hay ko khi biết 3 cạnh của tam giác
7,viết chương trình giải phương trình ax +b=0(các hệ số a,b dc nhập từ bàn phím)
ĐỀ CƯƠNG KIỂM TRA 1 TIẾT THỰC HÀNH :)
Câu trả lời của bạn
câu 4,5,6.
program tam_giac;
uses crt;
var a,b,c: real;
begin
clrscr;
write(' nhap canh a ='); readln(a);
write('nhap canh b ='); readln(b);
write('nhap canh c ='); readln(c);
if ( a+b < c) or ( a+c < b) or ( b+c < a) then
write('khong phai ba canh cua tam giac ') else
if ( a=b) and (b=c) then writeln('la tam giac deu ') else
if (a=b) or (b=c) or (c=a) then writeln('la tam giac can ') else
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or ( c*c=a*a+b*b) then
writeln('la tam giac vuong') else
writeln('khong phai so do 3 canh cua tam giac deu ',' tam giac can ',' tam giac vuong');
readln;
end.
Viết chương trình nhập vào một số bất kì từ bàn phím và kiểm tra nếu nhỏ hơn 9 thì thỏa mãn
Câu trả lời của bạn
Program bai1;
uses crt;
var n : real;
begin
clrscr;
write('nhap so bat ki = ' ); readln(n);
if n < 9 then writeln(' thoa man ') else
writeln('khong thoa man ');
readln;
end.
Trình bày sơ đồ khối cấu trúc rẽ nhánh đang thiếu, dạng đủ
Câu trả lời của bạn
Sơ đồ thuật toán câu lệnh rẽ nhánh dạng thiếu
Sơ đồ thuật toán câu lệnh rẽ nhánh dạng đủViết chương trình nhập vào số a từ bàn phím. In giá trị của a ra màn hình với điều kiện a là số lẻ.
Đang gấp á...
Câu trả lời của bạn
Program bai1;
uses
crt;
var a: integer;
begin
clrcr;
write('nhap a ='); readln(a);
if a mod 2 <> 0 then writeln(a);
readln;
end.
Giả sử cần Viết chương trình nhập một số tự nhiên vào máy tính và in ra màn hình kết quả số đã nhập là số chẵn hay lẻ , chẳng hạn 5 là số lẽ 8 là số chẵn .Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó
Câu trả lời của bạn
Hãy xác định bài toán, mô tả thuật toán và viết chương trình vào một số tự nhiên bất kì và in ra màn hình kết quả số đã nhập chia hết cho 7 hay không?
program bt1;
var a:integer;
begin
writeln('Nhap gia tri cua a'); readln(a)
if (a mod 2) = 0 then write(a,' la so chan') else write(a,' la so le');
readln;
end.
viết chương trình nhập vào 2 số nguyên khác nhau từ bàn phím. Sắp xếp hai số đó theo thứ tự tăng dần
Câu trả lời của bạn
Program bai1;
uses crt;
var a,b: integer;
begin
clrscr;
write('nhap so nguyen a ='); readln(a);
write('nhap so nguyen b ='); readln(b);
if a < b then writeln(a , '_' , b ) else
write(b , '_' , a);
readln;
end.
Viết chương trình nhập vào hai số nguyên a và b, in ra màn hình hai số nguyên đó. In ra màn hình số lớn hơn
Câu trả lời của bạn
program bai1;
uses crt;
var a,b: integer;
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
writeln(' hai so vua nhap la so: ' ,a,' va ',b);
if a> b then writeln('so lon nhat la : ' ,a) else
writeln('so lon nhat la : ' ,b);
readln;
end.
Viết chương trình nhập vào 1 số và cho biết số đó là số âm hay dương (gợi ý: nếu a>0 thì đó là số dương, ngược lại số đó là số âm
Câu trả lời của bạn
Program bai1;
uses crt;
var a:integer;
begin
clrscr;
write('nhap so a ='); readln(a);
if a> 0 then writeln('a la so duong ') else
writeln('a la so am ');
readln;
end.
viết chương trình nhập vào 2 số nguyên bất kì , in ra màn hình số lớn hơn trong hai số
Câu trả lời của bạn
program abc;
uses crt;
var a,b,max : integer;
begin
clrscr;
write ( ' nhap a =' );
readln (a);
write ( ' nhap b = ');
readln (b);
a:=max;
if max<b then max:=b;
write ( ' so lon nhat la',max);
readln;
end.
nêu câu lệnh đk dạng đủ trong pascal và giải thích ?
mọi người ơi giúp mk với mk sắp thi học kì rồi>_<
Câu trả lời của bạn
Xin lỗi bạn giải thích phải như thế này bạn ghép cú pháp với giải thích lại nhé
- Dạng thiếu:
Giải thích: Chương trình sẽ kiểm tra điều kiện. Nếu điều kiện được thỏa mãn, chương trình sẽ thực hiện câu lệnh sau từ khóa then. Ngược lại, câu lệnh đó bị bỏ qua
- Dạng đủ:
Giải thích:
Chương trình sẽ kiểm tra điều kiện. Nếu điều kiện được thỏa mãn, chương trình sẽ thực hiện câu lệnh 1 sau từ khóa then. Trong trường hợp ngược lại, câu lệnh 2 sẽ được thực hiện
câu 1 các lệnh sau đúng hay sai vì sao sai (nếu có)
a) if x:=then 5 a:=b;
b)if x>2;then a:=b;
c)if x >=5 then a:=b; m:=n;
d)if x >2 then a:=b:else m:n;
câu 2 với mỗi câu lệnh sau đây giá trị của biến X bằng bào nhiêu.nếu trước đó giá trị của x = 3
a) if 20 mod 3 = 0 then x:= x+1;
b) If x <10 then x:=x+1;
c) If 45 div 3 = 15 then x :x*2
câu 3 mô tả thuật toán hoán đổi giá trị của 2 biến x và y
Câu trả lời của bạn
Câu 2: Với mỗi câu lệnh sau đây giá trị của biến x bằng bao nhiêu nếu trước đó giá trị của x = 3
a) if 20 mod 3 = 0 then x:= x+1;
→ x=3
b) If x <10 then x:=x+1;
→ x=4
c) If 45 div 3 = 15 then x :=x*2
→ x=6
Bài 1.Nhập vào một số n từ bàn phím (n là số nguyên)
a)Viết thuật toán để kiểm tra n là số chẵn hay số lẻ
b)Viết chương trình Pascal
Bài 2.Viết chương trình nhập vào 3 số a,b,c từ bàn phím,xác định xem số nào lớn nhất
a)Mô tả thuật toán
b)Viết chương trình
Bài 3.Viết chương trình hiển thị kết quả của phép toán mod và div với n nhập từ bàn phím
Bài 4.Viết chương trình tính số tiền phải trả khi mua một mặt hàng.
(((MỌI NGƯỜI ƠI!!!GIÚP MÌNH GIẢI HẾT 4 BÀI TẬP NÀY VỚI)))
Câu trả lời của bạn
Bài 1.Nhập vào một số n từ bàn phím (n là số nguyên)
a)Viết thuật toán để kiểm tra n là số chẵn hay số lẻ
b)Viết chương trình Pascal
bài làm:
a, b1 nhập số n
b2 , n mod 2 = 0 thì chuyển xuống b4
b3 n mod 2= 1 thì chuyển xuống b5
b4 n là số chẵn
b5 n là số lẻ
b,
program Chan_le;
uses Crt;
var n: integer;
begin
clrscr;
write(´Nhap n=`);
readln(n);
if n mod 2 = 0 then writeln(´n la so chan`) else
writeln(´n la so le`);
readln;
end.
Viết chương trình nhập vào số n. In ra màn hình các số nguyên tố <=n. Tính tổng các số đó
Câu trả lời của bạn
program songuyen;
uses crt;
var a:array[1..100] of byte;
i,j,n,d,si,snt: byte;
begin
clrscr;
write( N = ); readln(n);
For i:=1 to n do
begin
write( Phan tu thu ,i, : ); readln(a[i]);
end;
for i:=1 to n do
begin
d:=0;
si:= trunc(sqrt(a[i]));
For j:=2 to si do
if a[i] mod j <> 0 then d:=d+1;
if d=si-1 then inc(snt);
end;
write( So cac snt: ,snt);
readln
end.
1/Cho hai biến x và y. Hãy mô tả TT đổi giá trị của các biến nói trên để x và y có giá trị tăng dần.
2/
Cho thuật toán sau:
Bước 1. x¬x + y.
Bước 2. y¬x-y.
Bước 3. x¬x-y.
Em hãy nêu mục đích của hai thuật toán trên?
3/Viết cú pháp, giải thích cú pháp và hoạt động của câu lệnh điều kiện dạng thiếu trong ngôn ngữ lập trình Pascal?
4/Viết cú pháp, giải thích cú pháp và hoạt động của câu lệnh điều kiện dạng đủ trong ngôn ngữ lập trình Pascal?
5/ Viết cú pháp, giải thích cú pháp và nêu cách thực hiện câu lệnh của câu lệnh lặp với số lần biết trước trong Pascal?
Câu trả lời của bạn
1/
Bước 1: Nếu x<y thì chuyển đến bước bước 3
Bước 2: tg <- x;
X <- y;
Y <- tg;
Bước 3: In giá trị x, y và kết thúc.
2/- Thuật toán trên thực hiện thao tác hoán đổi giá trị của hai biến số x và y.
3/
- Cú pháp: If < điều kiện > then < câu lệnh >;
- Trong đó: + If, then là các từ khóa
+ điều kiện thường là phép so sánh;
+ câu lệnh: là câu lệnh đơn cũng có thể là nhóm các câu lệnh, nếu là nhóm các câu lệnh thì đặt trong cặp từ khóa Begin và end.
- Hoạt động: Khi gặp câu lệnh điều kiện dạng thiếu, chương trình sẽ kiểm tra điều kiện, nếu điều kiện thỏa mản chương trình sẽ thực hiện câu lệnh sau từ khóa THEN, ngược lại câu lệnh bị bỏ qua.
4/
- Cú pháp: If < điều kiện > then < câu lệnh 1> else < câu lệnh 2>;
- Trong đó: + If, then, else là các từ khóa
+ điều kiện thường là phép so sánh;
+ câu lệnh: là câu lệnh đơn cũng có thể là nhóm các câu lệnh, nếu là nhóm các câu lệnh thì đặt trong cặp từ khóa Begin và end.
- Hoạt động: Khi gặp câu lệnh điều kiện dạng đủ, chương trình sẽ kiểm tra điều kiện, nếu điều kiện thỏa mản chương trình sẽ thực hiện câu lệnh 1 sau từ khóa THEN.Trong trường hợp ngược lại câu lệnh 2sẽ được thực hiện.
5/
- Cú pháp: For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
- Trong đó: + For, to, do là các từ khóa
+ biến đếm; là biến kiểu nguyên
+ giá trị đầu, giá trị cuối là các giá trị nguyên, giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối;
+ câu lệnh: là câu lệnh đơn cũng có thể là nhóm các câu lệnh, nếu là nhóm các câu lệnh thì đặt trong cặp từ khóa Begin và end.
+ số lần lặp = giá trị cuối – giá trị đầu + 1 (lần).
- Cách thực hiện: Ban đầu biến đếm nhận giá trị bằng giá trị đầu, sau mỗi vòng lặp biến đếm tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.
Viết chương trình tìm số nhâts từ 3 số nguyên nhập từ bàn phím.
Câu trả lời của bạn
program tim_max;
uses crt;
var m,n,k:real;
max:real;
begin
clrscr;
write('nhap so thu nhat ='); readln(m);
write('nhap so thu hai ='); readln(n);
write('nhap so thu ba ='); readln(k);
max:=m;
if n>max then max:=n;
if k>max then max:=k;
writeln('gia_tri_lon_nhat=',max:4:0);
readln;
end.
viết chương trình tính tổng và tích 3 số nguyên được nhập từ bàn phím
Câu trả lời của bạn
program dz;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('moi nhap a=');
readln(a);
write('moi nhap b=');
readln(b);
write('moi nhap c=');
readln(c);
writeln('tong ba so bang',a+b+c):
write('tich ba so bang',a*b*c);
readln;
end.
chúc bạn học tốt
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *