uses crt;
var n:integer;
begin
clrscr;
readln(n);
if (n mod 9=0) then writeln('yes')
else writeln('no');
readln;
end.
Đúng 0
Bình luận (0)
Phần mềm học tập
Các câu hỏi tương tự
Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình.Với N và điểm kiểm tra được nhập từ bàn phím(sử dụng biến mảng)
Cùng các bạn trong nhóm thảo luận và trả lời câu hỏi sau:
Xét chương trình sau:
Const
a20;
d TRUE
Var
b: integer; x: real; c: char:
Begin
write ( Hay nhap gia tri cho b: ) ; readln(b) ;
write ( Hay nhap gia tri cho c: ) ; readln(c) ;
...
readln;
End.
Khi thực hiện chương trình, nếu người sử dụng giá trị 18 cho biến b và nhập kí tự k cho biến c thì từng lệnh dưới đây sẽ hiển thị kết quả gì lên màn hình khi đc thay vào chỗ dấu 3 chấm ?(không sử dụng Free Pascal để chạy thử)
Lệnh 1. wr...
Đọc tiếp
Cùng các bạn trong nhóm thảo luận và trả lời câu hỏi sau:
Xét chương trình sau:
Const
a=20;
d= TRUE
Var
b: integer; x: real; c: char:
Begin
write (' Hay nhap gia tri cho b: ') ; readln(b) ;
write (' Hay nhap gia tri cho c: ') ; readln(c) ;
...
readln;
End.
Khi thực hiện chương trình, nếu người sử dụng giá trị 18 cho biến b và nhập kí tự 'k' cho biến c thì từng lệnh dưới đây sẽ hiển thị kết quả gì lên màn hình khi đc thay vào chỗ dấu 3 chấm ?(không sử dụng Free Pascal để chạy thử)
Lệnh 1. writeln ( (36-5*2) div 3) ;
Lệnh 2.writeln ( (8 mod 3) <> 2);
Lệnh 3. writeln (b/6) ;
Lệnh 4. writeln (b/6 :10:2) ;
Lệnh 5. writeln (a/6:10:2) ;
Lệnh 6. writeln (b/6<=a/5) ;
Lệnh 7. writeln (c='K') ;
Lệnh 8. writeln (d) ;
Em hãy dùng Free Pascal để kiểm tra lại ý kiến của mình trong bài tập trên
Bài 7**: Viết chương trình nhập 3 số thực a, b, c từ bàn phím. Kiểm tra xem 3 số đó có thỏa mãn là độ dài 3 cạnh của một tam giác hay không? Nếu là độ dài 3 cạnh của một tam giác thì kiểm tra xem tam giác đó là tam giác đều, tam giác cân, tam giác vuông hay tam giác thường?(ví dụ: nhập a 5; b 5; c 7, in ra màn hình “Đây là độ dài 3 cạnh của tam giác. Đây là tam giác cân”; nhập a 5; b 2; c 1, in ra màn hình “Đây không phải là độ dài 3 cạnh của tam giác”Lưu ý: Sử dụng ngôn ngữ lập trình Pyth...
Đọc tiếp
Bài 7**: Viết chương trình nhập 3 số thực a, b, c từ bàn phím. Kiểm tra xem 3 số đó có thỏa mãn là độ dài 3 cạnh của một tam giác hay không? Nếu là độ dài 3 cạnh của một tam giác thì kiểm tra xem tam giác đó là tam giác đều, tam giác cân, tam giác vuông hay tam giác thường?
(ví dụ: nhập a = 5; b = 5; c = 7, in ra màn hình “Đây là độ dài 3 cạnh của tam giác. Đây là tam giác cân”; nhập a = 5; b = 2; c = 1, in ra màn hình “Đây không phải là độ dài 3 cạnh của tam giác”
Lưu ý: Sử dụng ngôn ngữ lập trình Python để viết chương trình
em hãy viết các điều kiện dưới đây trong ngôn ngữ pascal;
a) X là một số nguyên chia hết cho 4
b) Y là một số nguyên không chia hết cho 5
c) tổng của hai trong ba số a,b,c luôn lớn hơn số còn lại.
Viết chương trình Pascal cho hai thuật toán sau: Thuật toán 1: Bước 1: T:=0; n:=0 Bước 2: Nếu T >20 chuyển về bước 4 Bước 3: n:= n+2; T := T+n; Quay lại bước 2 Bước 4: Thông Bảo T; Kết thúc thuật toán
1. Nêu cách khai báo biến mảng trong pascal? Khi nòa nên dung biến mảng?
2. em hay khai báo 1 biến mảng 50 phần tử kiểu xâu ký tự?
3. Viết chương trình tính tổng chẵn, lẽ của 10 số bất kỳ nhập vào từ bàn phím
4. Viết chương trình kiểm tra 1 số nhập vào là số chẵn hay lẻ thông báo kết quả
5. Hãy cho biết vòng lặp sau chạy mấy lần? vì sao?
a. K:7;
While (K7) Do write(“ lap lan thu may”);
b. H:3;n:6;
While (n 20) Do H:H+n;
c. For F:3 to 23 do readln;
Đọc tiếp
1. Nêu cách khai báo biến mảng trong pascal? Khi nòa nên dung biến mảng?
2. em hay khai báo 1 biến mảng 50 phần tử kiểu xâu ký tự?
3. Viết chương trình tính tổng chẵn, lẽ của 10 số bất kỳ nhập vào từ bàn phím
4. Viết chương trình kiểm tra 1 số nhập vào là số chẵn hay lẻ thông báo kết quả
5. Hãy cho biết vòng lặp sau chạy mấy lần? vì sao?
a. K:=7;
While (K=7) Do write(“ lap lan thu may”);
b. H:=3;n:=6;
While (n<= 20) Do H:=H+n;
c. For F:=3 to 23 do readln;
Viết chương trình nhập vào số nguyên dương a. Hãy cho biết số vừa nhập có chia hết cho 3 và 5 không?
Em hãy viết chương trình pascal nhập một mảng số nguyên gồm n phần tử với n được nhập từ bàn phím in rãi vừa nhập ra màn hình và tính tổng các phần tử trong mảng đưa kết quả ra màn hình.
câu 1: a, viết chương trình nhập vào 1 dãy n số nguyên từ bàn phím .In ra dãy đã nhập ra màn hình
b, đếm xem có bao nhiêu số chẵn trong dãy? có bao nhiêu số chẵn chia hết cho 5 trong dãy
câu 2: viết chương trình P=1+2+3+....+n với n là số nguyên nhập từ bàn phím