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ự
Mình xin chào tất cả các bạn nha! Lâu rồi không học OLM chỉ vì mình bị mất tài khoản từ cuối tuần trước nên mình không được gặp các bạn. Mình mong rằng các bạn luôn giúp đỡ và hỗ trợ mình nha! Mình xin cảm ơn rất nhiều!
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