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
14 tháng 3 2017
Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;
BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .
26 tháng 4 2018
program bai1;
var m,n,i:Longint;
begin
wriute('M= ');readln(m);
repeat
write('N= ');readln(n);
until n>=m;
s:=0;
for i:=m to n do
if (i mod 3=0) and (i mod 5=0) then s:=s+i;
write('S= ',s);
readln
end.
GH
3 tháng 5 2018
Bài 1
Program bai1;
Uses crt;
Var m,n,i,s:longint;
Begin
Clrscr;
Write ('nhap m:'); readln (m);
Write ('nhap n:'); readln (n);
While n <m do
Begin
Write ('nhap lai n:');
Readln (n);
End;
S:=0;
For i:=m to n do
If (i mod 3=0) or (i mod 5=0) then s:=s+i;
Write (s);
Readln;
End.
11 tháng 5 2017
Program tính_chia;
Uses crt;
Var i, n, s, a: integer;
Begin
Write('Nhap so n: '); readln(n);
s:=1;
For i:=1 to n do s:=s*i;
a:=0;
For i:=1 to n do a:=a+i;
Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);
readln;
End.
TT
20 tháng 12 2018
Bài này phải có bài toán cụ thể mới làm được.
Từ thuật toán viết CT thôi.
NL
20 tháng 12 2018
học kĩ phần viết chương trình tính diện tích tam giác đi mấy bé..
Program TAM_GIAC;
uses crt;
var a,b,c,p,S: real;
Begin
clrscr;
Write('Nhap canh a:');readln(a);
Write('Nhap canh b:');readln(b);
Write('Nhap canh c:');readln(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich tam giac la:',s:10:2);
readln
end.
CHÚC BÀ THI TỐT NHA BÉ YÊU
NV
3
KS
7 tháng 5 2017
Vào thông tin tài khoản chọn đổi ảnh đại diện, hoặc là RESEST máy lại
QT
11 tháng 4 2019
program mang;
uses crt;
var n,i,m: integer
A: array [1..100] of integer;
BEGIN
clrscr;
repeat begin write ('nhap so phan tu ban muon: '); readln (n); end;
until (n>=1) and (n<=100);
for i:=1 to n do
begin write ('A[',i,']='); readln (A[i]); end;
writeln ('a)');
for i:=1 to n do writeln (A[i]);
QT
11 tháng 4 2019
function NT(n: integer): boolean;
var kt: boolean; i: integer;
begin
NT:= true;
if n <2 then NT:= false
for i:= 2 to n-1 do if n mod i = 0 then NT:= false;
end;
var dem: integer;
for i:=1 to n+1 do if NT(i):= true then begin dem:=dem+1;writeln (i); end;
write ('so luong cac so nguyen to la: ',dem);
READLN
END.
16 tháng 3 2017
2/ program bt;
var N,i:integer;
begin
write('nhap so N'); readln(N);
writeln;
writeln (' bang nhan ', N);
writeln;
for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end
readln
end.
Mik chỉ bít làm bài 2 thôi!
18 tháng 3 2017
program loc_so_le;
uses crt;
var N,y: longint;
begin
Writeln('Nhap so N '); Readln(N);
for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');
Readln;
end.
?
làm gòi