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.
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!
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.
program tong cac so le; uses crt; var i, n, tong: integer; A : array[1..10]of integer; begin write('nha so phan tu cua day:'); readln(n); for i:=1 to n do begin (' nhap so thu ',i') ; readln (A[i]); end; tong:=0; for i:= 1 to n do if A[i] mod 2=1 then tong:= tong+A[i]; write('tong cac so le trong day la: ', tong); readln end.
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 .
program P;
var x, y, P: integer;
begin
writeln('nhap x va y = ');
readln(x,y);
P:=x*x+y*y+x*y;
writeln('gia tri bieu thuc = ',P);
readln
end.
Bạn thử chạy chương trình xem có được ko rồi nói lại cho mình nhé.
uses crt;
var n,i,max,min:integer;
s:real;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i]
if a[i]<min then min:=a[i];
end;
s:=(max+min)/2;
wrrite('so lon nhat la:',max);
write('so nho nhat la:',min);
write(' trung binh số lớn nhất và số nhỏ nhất là:',s);
readln;
end.
program tong_chan;
uses crt;
var N,dem:integer;
Tong:longint;
BEGIN
Clrscr;
writeln('Nhap so nguyen N =');
readln(N);
Tong := 0;
dem := 0;
while dem < N do
begin
Tong := Tong + dem*2;
dem := dem + 1;
end;
write('Tong', N, 'so tu nhien chan dau tien la: ',Tong);
readln;
END.
1/
uses crt;
var i,tong:integer;
a:array[1..50] of integer;
begin
clrscr;
for i:=1 to 50 do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:=1 to 50 do tong:=tong+a[i];
write('tong la:',tong);
readln;
end.
*ở đây bạn k ns là số nguyên hay số thực nên mk làm số nguyên, nếu số thực thì bạn sửa khai báo lại nha
2/
uses crt;
var i,dem:integer;
a:array[1..50] of integer;
begin
clrscr;
for i:=1 to 50 do
begin
write('a[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to 50 do
if a[i] mod 2<>0 then dem:=dem+1;
write('co ',dem,' so le trong 50 so vua nhap');
readln;
end.
*cái này cũng z nhé
Câu 1:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.