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
program chia_n;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
Write('Hay nhap so n ');readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('Tong la ',s:1:2);
readln;
end.
nhớ tick cho mik nha!
Viết vào màn hình :
\(D=D+1:A=\frac{D}{\left(D+1\right)^2}:B=B+A\)
Bấm CALC , nhập D = 1 , B = 1
Bấm liên tiếp dấu "=" cho đến khi D = 49 .
B chính là giá trị của S.
a)
input: a
output: a có chia hết cho 3 ko?
b)
B1: nhập a
B2: nếu a mod 3=0 thì a chia hết cho 3, nếu a mod 3 <>0 thì a ko chia hết cho 3
B3: thông báo a chia hết cho 3 ko
B4: kết thúc.
c)
var
a:integer;
begin
write('nhập a=');
readln(a);
if a mod 3=0 then wirteln(a,' chia hết cho 3')
else
writeln(a,' ko chia hết cho 3');
readln
end.
var n:integer;
begin
assign(input,'CHIA3.inp');reset(input);
assign(output,'CHIA3.out');rewrite(output);
read(n);
if n mod 3 = 0 then write('n chia het cho 3')
else write('n khong chi het cho 3');
end.
S=1+4+7+..+n
Tổng S có số số hạng là \(\frac{\left(n-1\right)}{3}+1=\frac{n+2}{3}\)
Tổng S có giá trị là
\(S=\frac{\left(n+1\right)}{2}.\frac{n+2}{3}=\frac{\left(n+1\right)\left(n+2\right)}{6}\)
chịu nạ
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.