K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
T
1
NR
1
14 tháng 10 2018
var sn:integer;
begin
write('nhap nam sinh:');readln(sn);
write(2018-sn,'tuoi');
readln;end.
TH
3
TT
22 tháng 4 2021
program tinhtong;
var S,n : integer ;
i : integer ;
begin
S :=0 ;
write ('nhap gia tri cua n ='); readln (n);
for i :=1 to n do S := S+i ;
write ('vay tong S =,'S);
readln ;
end.
ML
1 tháng 4 2019
Lời giải :
program hotrotinhoc ;
var i,n : integer;
S: real ;
begin
write('nhap n:'); readln(n);
for i:= 1 to n do
S:=S+1/i ;
write('S=',S);
readln
end.
Chào bạn , bạn nên kiểm tra lại đề câu dưới nhé , đề vòng lặp for i:= 1 to n do sau đó câu lệnh gán là S:=S+1/i*(i+1) sao giá trị cuối lại +4
9 tháng 4 2021
Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D
8 tháng 8 2023
program TICHSO;
var
n, i, j, maxVal, a_i, a_j: Integer;
begin
maxVal := 0;
Readln(n);
for i := 1 to n do
begin
Read(a_i);
if Abs(a_i) > maxVal then
maxVal := Abs(a_i);
end;
for i := 1 to n-1 do
begin
for j := i+1 to n do
begin
a_i := Abs(a[i]);
a_j := Abs(a[j]);
if (a_i * a_j) > maxVal then
maxVal := a_i * a_j;
end;
end;
Writeln(maxVal);
end.
