Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Không có câu nào đúng hoàn toàn cả
Câu a thì sai chỗ writwln
phải là writeln mới đúng
câu b thiếu;
câu c sai câu lệnh xuất
câu d thiếu;
viết chươngtrình nhập vào một số dương và kiểm tra xem nó có chia hết cho ba không?
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 3=0 then writeln(a,' chia het cho 3')
else writeln(a,' khong chia het cho 3');
readln;
end.
program bang_cuu_chuong ;
Uses crt;
Var N , i : integer ;
Begin
Clrscr ;
write('Nhap so N=');
readln(N);
writeln;
write ('Bang nhan',N) ;
writeln;
for i:=1 to 10 do
writeln(N,'x',i:2,'=',N*i);
readln ;
End.
C
C