uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
Đúng 1
Bình luận (0)
Các câu hỏi tương tự
Tìm lỗi sai của chương trình sau và sửa lại cho đúng:
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln;
S:=0;
While n >0 do
s:=s+n/2; n:=n-1;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Mn giải giúp mik vs ạ. Mik cảm ơn ạ
Giúp mình tìm lỗi cú pháp với, cảm ơn nhiều.
1.viết phương trình nhập danh sách n số và in ra tích các số lẻ trong danh sách (nhập từ bàn phím)
2. Viết phương trình nhập danh sách n số và in ra màn hình các số chẵn của danh sách (nhập từ bàn phím)
P/s: Giúp mình với ạ, mình cảm ơn nhiều><
Viết chương trình đếm xem có bao nhiêu số chia hết cho 3 và cho 4 trong khoảng 0 -->10000 , tính tổng của các số này .
Mình cần gấp ạ :(( mn giúp mình với , cảm ơn ạ
Các khai báo biến sau đúng hay sai? Nếu sai hãy chỉ ra lỗi sai và sửa lại cho đúng
1. Var tb :=real;
2. Var 8a2 : integer;
3. Var A, B : integer;
4. Var T : Real;
5. Var X = 5.
Trong các câu lệnh Pascal sau đây có câu lệnh nào sai và ở đâu : a.for :=10 to 2 do write (' A'); b.for :=15 to 5 do write ('A') c.while ( n mod 20 ) đó i :=i+1 Giúp mình với mái mình thì rồi. 😭😭😭😭
Tìm lỗi sai trong các câu lệnh sau và chữa lại cho đúng ( viết lại chương trình đúng )
Var cv, dt : integer
r : real;
Const pi = 3.14;
Begin
r = 5.5;
dt := pi*r*r;
writeln(‘Dien tich hinh tron la:,dt:8:2’);
readln
End.
Mọi ng ghi ra câu lệnh giúp mình ạ, mình cảm mơn
Giúp tôi vs. Giúp mình dùng lệnh lm ra các hình trên, r chụp lại cho mình vs . Xin đấy sắp ktr r