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.
mk trân thành cảm ơn ạ!
Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?
program TichSoChiaHetCho3;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
tich := 1;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 3 = 0 then
begin
tich := tich * a[i];
end;
end;
writeln('Tich cac phan tu chia het cho 3 la: ', tich);
readln;
end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?
program DemSoChanTrongDay;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
dem := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
begin
dem := dem + 1;
end;
end;
writeln('So phan tu chan trong day la: ', dem);
readln;
end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?
program HienThiSoNhoHon20;
var
n, i: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] <= 20 then
begin
writeln(a[i]);
end;
end;
readln;
end.
program mang;
uses crt;
var n,i,chan, le,max,min: Integer;
a:array[1..100] of integer;
begin
write('nhap so phan tu ');read(n);
for i:=1 to n do
begin
write('nhap so thu ',i); readln(a[i]);
end;
max:=a[1]; min:=a[1]; chan:=0;le:=0;
for i:=1to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
if a[i] mod 2 = 0 then chan:=chan+1
else le:=le+1;
end;
writeln('max la: ',max);
writeln('min la: ',min);
writeln('so phan tu chan: ',chan);
writeln('so phan tu le: ',le);
readln
end.
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
Ủa bạn ngay chỗ var n i: integer có thể thay thế bằng longint ko
#include <bits/stdc++.h>
using namespace std;
long long i,n,kt,j;
int main()
{
cin>>n;
for (i=2; i<=n; i++)
{
kt=0;
for (j=2; j*j<=i; j++)
if (i%j==0) kt=1;
if (kt==0) cout<<i<<" ";
}
return 0;
}
Uses crt;
Var a,b,n:integer; {hoặc real,longint {tùy vào đơn vị của các số có nhỏ hay lớn}}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
Begin
b:=b+a;
a:=a+1; {chỉ áp dụng khi tính tổng liên tiếp từ 1->n, không áp dụng tính tổng các số chẵn}
end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
*Nếu bạn muốn giải theo cách for..do hay tính tổng các số chẵn hay gì gì đó liên quan đến Tin học thì bảo mình nhé* Good luck for you :D :D
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) if (i%2==0) s*=i;
cout<<s;
return 0;
}
Program HOC24;
var n,i: integer;
a: array[1..32000] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
write('Nhap so thu ',i,': '); readln(a[i]);
t:=0;
for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];
write('Tong cac so chan la: ',t);
readln
end.
Mày thử giải đê :)) Help đi :)) nếu đc còn ko đc thì xem lại bạn nhóe :)) Minh
mình cố gắng giải cho bạn, bạn xem có đúng ko
:))) không có chi đâu bạn :)))
à mak Chi ơi... bài này hình như bỏ chữ "chẵn" đi đâu rùi ấy...
Mình gửi lại cho bạn Mình xin lỗi vì đã làm thiếu
s phải là real nha
vì nhân lên nó có giá trị cao hơn integer nên phải chọn real
vì bạn nói tính tích các số chẵn nhỏ hơn n nên nó sẽ ra vầy
Mình sửa lại đây
thế ok bạn rồi nhé
Học dốt .Câu này mà không làm được
Kh lẽ kh bk là dốt à bạn :) đâu ai giỏi toàn diện đâu bạn :) có người giỏi môn này nhưng kém môn khác thì sao :) ... kh lẽ hỏi là gọi là dốt à... kh bk thì mk có quyền tham khảo để bk chứ bạn :) như bạn kh hc hỏi thử xem bạn có giỏi đc kh... thì cx tương tự như mk kh bk thì mk có thể hỏi... chứ kh bk mà im hoặc tỏ ra bk ms là dốt á bạn à ... đừng để mk khẩu nghiệp nha bạn... :)
Cảm ơn bạn đã quan tâm... bạn đó tự cao ***** ra ha :))
Chi rep nhìu wá đọc mún chóng cả mặt lun :))
Do cảm thấy hơi khó chịu
...
Bạn dùng turbo pascal à?
ko phải pascal mà là notepad++
oh, z cái này chạy ct đc ko????
Ko đc bạn ơi cái này chỉ viết file thôi
nếu chạy thì bạn phải lưu file viết nó vào thư mục pascal
Nhớ trước khi viết phải chọn Ngôn ngữ Pascal nhé bạn
Cảm ơn bạn Hứa Đình Dương Thụ nha ♥♥... để mk chạy chương trình thử xem sao
....dù j cx cảm ơn bạn nhiều <3
tích "các số chẵn" nhỏ hơn n bạn ơi :((
Rep tn mk đi bạn
ok
@Nk>@ bạn sửa
i:=1; thành i:=2;
i:=i+1; thành i:=i+2;
nhé bạn thế thôi
Thích thì chiều ...
Program cxx;
Uses Crt;
Var i,n: integer;
s: real;
Begin
Clrscr;
Write('Nhap n:'); Readln(n);
i:=1;
s:=1;
While i<=n do
Begin
If i mod 2 = 0 then s:=s*i;
i:=i+1;
End;
Writeln(' Tich la:s= ',s)
Readln;
End.
"Thích thì chiều" metmoi bạn ghê :((
sao z ???
Chi
ib
ùm
nghiện phi phai