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.
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.
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Viết chương trình nhập vào từ bàn phím số nguyên N, kiểm tra xem N có chia hết cho 3 và 5 hay không?
Yêu cầu:
a) Xác định điều kiện bài toán
b) Mô tả thuật toán
c) Viết chương trình Python
viết chương trình nhập vào 2 số nguyên a, b. kiểm tra tổng của chúng là số dương hay số âm và kiểm tra tổng có chia hết cho 2 không?
Khởi động phần mềm Turbo Pascal rồi viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? *Yêu cầu: 1) viết chương trình như trên 2) em hãy dịch và sửa lỗi chương trình(nếu có)
Viết chương trình nhập vào 3 cạnh a,b,c(số dương),sau đó kiểm tra xem có thành lập được 1 tam giác hay không ?
Câu 2: Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập ba số a, b, c nguyên dương từ bàn
phím và kiểm tra ba số a, b, c có phải là độ dài ba cạnh của một tam giác không?
Hãy cho biết chương trình Pascal sau đây có đúng không ? Tại sao ?
Program Tong_hai_so;
Begin
Writel(‘Hay nhap hai so’); Readln(a,b);
Write(‘Tong cua hai so la: ‘,a+b);
Var a,b: Integer;
End.
Giúp mik vs mai mik thi r
Viết chương trình nhập vào một số nguyên dương và kiểm tra xem số đó là số chẳn hay số lẻ. thong báo kết quả sau khi kiểm tra