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.

1 tháng 5 2019

uses crt;

var m,n: integer;

begin

clrscr;

writeln('Nhap n = '); read(n);

m:=0;

for i:=1 to n do

m:=m+i*i*i;

m:=sqrt(m);

writeln('m = ',m);

readln

end.

1 tháng 5 2019

const
nhap='input.inp';
xuat='output.out';
var s:int64;
i,n:longint;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
readln(n);
for i:=1 to n do
s:=s+i;
write(s);
end.
close(input);close(ouput);

24 tháng 5 2019

uses crt;
var n,n1,s:real;
begin
clrscr;
write('Nhap n: ');readln(n);
n1:=2*n+1;
s:=((n1 - 1)/2+1)*(n1 + 1)/2;
write(s:0:0);
readln
end.

12 tháng 7 2017

program bt;

uses crt;

var n,i,j:word;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n+1 do a[i]:=0;

a[1]:=1;

for i:=0 to n do

begin

for j:=i+1 downto 2 do a[j]:=a[j]+a[j-1];

for j:=1 to i+1 do write(a[j]:3);

writeln;

end;

readln;

end.


banh

2 tháng 1 2018

chuẩn men

6 tháng 6 2020

sai 2 lỗi cô ơi

6 tháng 6 2020

3 lỗi

1 tháng 7 2019

1) Sai --> Program Chuong_trinh;

2) Đúng

3) Đúng

4) Đúng

5) Sai --> s:=s+1;

6) Sai -->i:=1+1;

7) Sai --> End;

8 và 9) Sai --> Writeln(s); và Readln;

10) Sai --> End.

Đúng thì like cho mình nha :)))

30 tháng 8 2019
Câu lệnh Đúng Sai Sửa lại
Program Chuong trinh x program chuongtrinh;
var i,s : real; x
const n:=10; x
begin x
s:=s+1 x s:=s+1;
i:=i+1 x

i:=i+1;

end; x

end;

writeln(s) x writeln(s);
readln x
end; x end.

19 tháng 3 2020

1. Đúng

2. Đúng

3. Sai

4. Sai

5. Đúng

6. Sai

19 tháng 3 2020

Câu 4 là Đúng nha. Mình ghi nhầm :))