1. Viết chương trình nhập một số nguyên A từ bàn phím, sử dụng câu lện điều kiện để kiểm tra A xem có chia hết cho 3 hay không, sau đó đưa ra màn hình thông báo;”A chia hết cho 3″ hoặc ‘A không chia hết 3″
2. Hãy viết chương trình nhập vào số nguyên m.Sử dụng câu lệnh điều kiện kiểm tra số m là chẵn hay lẻ .Sau đó in lên màn hình thông báo “so vua nhap la so chan!” hoacwk “So vua nhap la so le!”.
3. Viết chương trình tính diện tích S của hình tam giác với độ dài một cạnh a và chiều cao tương ứng h (a và h là các số tự nhiên được nhập vaaof từ bàn phím).
Gíup mik nha!!!
Mình hứa sẽ vote 5* cho bạn trả lời đầy đủ và đầu tiên.
1.
var a:integer;
begin
write(‘nhap a:’);
readln(a);
if a mod 3=0 then write(a,’ chia het cho 3′) else write(a,’ khong chia het cho 3′);
readln;
end.
2.
var m:integer;
begin
write(‘nhap m:’);
readln(m);
if m mod 2=0 then write(‘so vua nhap la so chan’) else write(‘so vua nhap la so le’);
readln;
end.
3.
var a,h:integer;
S:real;
begin
write(‘nhap a:’);
readln(a);
write(‘nhap h:’);
readln(h);
S:=(a*h)/2;
write(‘dien tich tam giac tuong ung voi do dai tren la ‘,S:4:2);
readln;
end.
1.
uses crt;
var A: integer;
begin
clrscr;
write(‘Nhap A = ‘); readln(A);
if A mod 3 = 0 then write(A, ‘ chia het cho 3’) else write(A, ‘ khong chia het cho 3’);
readln
end.
2.
uses crt;
var m: integer;
begin
clrscr;
write(‘Nhap m = ‘); readln(m);
if m mod 2 = 0 then write(‘So vua nhap la so chan!’) else write(‘So vua nhap la so le’);
readln
end.
3.
uses crt;
var a, h: integer;
S: real;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap h = ‘); readln(h);
S:=a*h/2;
writeln(‘Dien tich hinh tam giac do la: ‘, S:1:0);
readln
end.