trong pascal nha
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
TT
mình đang cần gấp
6
25 tháng 9 2016
begin
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
readin
end.
ND
0
4 tháng 12 2016
mình thấy ở trang 71 SGK có bài tương tự
program Tinh_trung_binh_cong;
uses crt;
var n, dem : integer;
a, TB : real;
begin clrscr;
dem:= 0; TB:=0;
write('Nhap so cac so can tinh n = '); realn(n);
write dem < n do
begin dem:= dem + 1;
write('Nhap so thu ', dem,' = '); realn(a);
TB:= TB + a;
end;
TB:= TB/n;
writeln('Trung binh cua ', n, ' so la = ', TB:10:3);
writeln('Nhan Enter de thoat ...');
readln;
end.
20 tháng 4 2017
ct1:
program (tự đặt tên);
uses crt;
var max,i,n:integer;
begin
clrscr;
max:=0; i:=1;
while i<=10 do
begin
write('n',i,'='); readln(n);
if n>max then max:=n;
i:=i+1;
end;
write('so lon nhat la:',max);
readln
end.
ct2:
program bt;
uses crt;
var a:array[1..1000] of integer;
max,i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to 10 do
if a[i]>max then max:=a[i];
write('so lon nhat trong cac so la:',max);
readln
end.
Sự khác nhau giữa hai ct:
- Khác nhau về cách khai báo
- Khác nhau ve cách trình bày
Bạn hãy chạy thử chương trình trước nha 
NT
3
27 tháng 4 2017
4. program bai_4;
ues crt;
var
s,n,i:integer;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
if i (mod 2=0) then s:=s+1;
write('tong la:',s:7);
readln;
end.
5.program bai_5;
uses crt;
var
i,s,n:integer;
begin
clrscr;
write('nhap n :');readln(n);
s:=0;
for i:=1 to n do s:=s+1;
writer('tong la:',s);
readln;
end.
27 tháng 4 2017
8.program bai_8;
uses crt;
var
A:=array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('nhap n=');readln(n);
for i:= 1 to n do
begin
write('A[',i,']=');readln(A[i]);
end;
for i:= 1 to n do write(A[i],' ');
max:=a[1];
for i:= 1 to n do
if a[i] mod> max then:=a[i];
write('gia tri lon nhat trong mang la:',max);
readln;
end.
ND
3
22 tháng 4 2017
CT2:
Program Max_10;
Uses crt;
Var: i,Max:integer;
a: array[1..10] of integer;
Begin
Clrscr;
For i:= 1 to 10 do
Write('Hay nhap so thu ',i,' : '); Readln(a[i]);
Max:= a[1];
For i:= 2 to 10 do
if a[i] > Max then Max:= a[i];
Writeln('So lon nhat trong 10 phan tu ban vua nhap la ',Max);
Readln;
End.
LT
6 tháng 1 2017
b1: Nhập n.
b2:Nếu n chia hết cho 1 và n chia hết cho n thì n là số nguyên tố, ngược lại n không phải là số nguyên tố.
b3: Thông báo kết quả và kết thúc thuật toán.
30 tháng 3 2017
Viết bình thường một lệnh cũng được mà, mình không biết làm 2 lệnh
program Tinh_hieu;
var n,i: integer;
S: longint;
begin
write('Nhap so n='); readln(n);
S:=0;
for i:=1 to n do S:=S-i;
writeln('Hieu cua ',n,' so tu nhien dau tien S=', S);
readln
end.
30 tháng 3 2017
program Tinh_hieu;
uses crt;
var i,n: integer;
S: longint;
begin
clrscr;
write('Nhap so n = ');readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S-i;
end;
writeln('Hieu cua ',n,' so tu nhien dau tien la ',S);
readln;
end.
readln;
end.
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln((a+b)/3-5*a:4:2);
readln;
end.