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.
Program (Bạn tự đặt lấy nha)
Var a, b, S: Integer
Begin
Readln(a, b);
S:=a+b;
Writeln(S);
End.
Chúc bạn học giỏi
a) xác định
input: x
output: x là chẵn hay lẻ
b)
B1: nhập x
B2: Nếu x chia hết cho 2 thì x là số chẵn, không chia hết thì là số chẵn
B3: trả lời số x là số chẵn hay là số lẻ
B4: kết thúc thuật toán.
c)
var
x:integer;
begin
write("nhập x=");
readln(x);
if x mod 2=0 then writeln(x," là số chẵn")
else
writeln(x," là số lẻ");
readln;
end.
program chia;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=2 to 50 do s:=s+1/i;
writeln('Tong la ',s:1:2);
readln;
end.
Vì nguyên tử có số hạt là 18 suy ra ta có: p+e+n=18
mà p=e suy ra ta có: 2p+n=18
n=18-2p
Ta có: 1<=\(\frac{n}{p}\) <=1,5
1<=\(\frac{18-2p}{p}\) <=1,5
1<=18-2p<=1,5p
3p<=18<=3,5
\(\frac{18}{3,5}\) <=p<=6
Mà p thuộc N sao suy ra p=6,e=p=6
suy ra n=6.
(cái này mình không chắc là đúng đâu nhé)