1.Viết chương trình nhập vào số nguyên a,b,c ( khác nhau)
a) Tính tổng các số a,b,c
b) Trong các số bạn nhập trên có số chẵn không?
2. Viết chương trình tính chấm xúc xắc chạm trên các ô vuông. Biết trong số chẵn 2 mặt đối với nhau là 7 chấm, mặt tiếp xúc ô vuông, số chẵn là 4.
Bài 1
uses crt ;
var a,b,c:integer;
begin
clrscr;
write(‘a=’);readln(a);
write(‘b=’);readln(b);
write(‘c=’);readln(c)
s:=a+b+c;
write(‘tong cua cac so a,b,c la:’,s);
if a,b,c mod 2 =0 then write(‘trong cac so ban nhap co so chang’) else write(‘trong cac so ban nhap khong co so chang’);
readln
end.