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.
soluong: Biến
Dongia: Biến
thanhtien: Biến
phi: Hằng
Tinh_tien: Không phải hằng hoặc biến
|
|
Hằng |
Biến |
Không phải hằng hoặc biến |
|
soluong |
|
x |
|
|
Dongia |
|
x |
|
|
thanhtien |
|
x |
|
|
phi |
x |
|
|
|
10000 |
|
|
x |
|
Tinh_tien |
|
|
x |
câu hỏi này bạn nên để chị @Nguyễn Minh Lệ trả lời giúp bạn
Từ khóa: program; uses; begin; end; writeln
Tên: CT_Dau_tien; Crt
Từ khóa: program, uses, begin, writeln, End.
Tên: CT_Dau_tien, Crt
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 :)))
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.
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.
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);