Viết crt nhạp vào số nguyên a và cho biết a là số nguyên âm hay dương
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Var a,b,x:real;
begin
write('Nhap he so a = ');readln(a);
write('Nhap he so b = ');readln(b);
if a = 0 then
begin
if b = 0 then write('Phuong trinh co vo so nghiem')
else write('Phuong trinh vo nghiem');
end
else
begin
x:=-b/a;
write('Nghiem cua phuong trinh la ',s:10:2);
end;
readln;
end.
Program HOC24;
var i,t,k,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0; k=0;
while k=0 do
begin
n:=n+1;
for i:=1 to n do if n mod i=0 then t:=t+i;
if t=n then
begin
write(n);
k:=k+1
end else t:=0;
end;
readln
end.
a = []
sum = 0
n = 5
# Nhập danh sách a
for i in range(n):
x = int(input("Nhập phần tử thứ " + str(i+1) + ": "))
a.append(x)
# Tính tổng các phần tử trong danh sách a
for i in range(n):
sum += a[i]
# In ra màn hình tổng các phần tử trong danh sách a
print("Tổng các phần tử trong danh sách a là: ", sum)
uses crt;
var a:integer;
begin
clrscr;
readln(a);
if a>0 then write('duong')
else write('am');
readln;
end.