Đề bài: Viết chương trình nhập n số nguyên từ bàn phím, in các số lẻ ra màn hình (sử dụng câu lệnh lặp với số lần biết trước)
Đề bài: Viết chương trình nhập n số nguyên từ bàn phím, in các số lẻ ra màn hình (sử dụng câu lệnh lặp với số lần biết trước)
Vì sao chương trình sau dịch thành công nhưng khi chạy lại bị lỗi:
var i,tong byte;
begin
while i<25 do
begin
tong=tong+i
end.
Vì kiểu byte chỉ chứa được tối đa 64 cần đổi biến ' Tong ' thành kiểu dữ liệu integer hay longint
Bài này bị lỗi sau:
1) tong=tong+i => sửa: tong:=tong+i;
2) thiếu lệnh "end;" trước lệnh end.
3) thiếu lệnh làm thay đổi giá trị của i nên bài này bị lặp vô hạn
Viết chương trình nhập N số nguyên từ bàn phím in các số lẻ ra màn hình(sử dụng câu lệnh lặp với số lần biết trước)
Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if( i mod 2<>0) then write(i:3);
readln;
end.
uses crt;
var i,n:longint;
begin
writeln('nhap n'); readln(n);
for i:=1 to n do if i mod 2 =1 then
writeln(i);
readln;
end.
ngu ththế mà cũng ko làm được về lớp 1 mà học
Viết chương trình tính tổng các số tự nhiên từ 10 đến N. Với số N là số tự nhiên bất kì do người sử dụng nhập va N > 15. * Lưu ý: Sử dụng câu lệnh lặp While...do*
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
if n<=5 then write('So vua nhap chua lon hon 15') else
begin
t:=0; i:=10;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
end;
write('Tong la: ',t);
readln
end.
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
Program HOC24;
var i,n,max: integer;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
i:=1; max:=-1;
while i<=n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
if a[i]>max then max:=a[i];
i:=i+1;
end;
write('So lon nhat la: ',max);
readln
end.
Viết chương trình nhập vào một dãy số nguyên cho đến khi gặp số 0 thì dừng lại. Tính tổng các số chẵn, thông báo ra màn hình.
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap so: ');
readln(n);
if n mod 2=0 then t:=n else t:=0;
while n<>0 do
begin
write('Nhap so: ');
readln(n);
if n mod 2=0 then t:=t+n;
end;
write('Ket qua la: ',t);
readln
end.
Viết chương trình nhập vào một dãy n số nguyên, tính tổng các số vừa nhập, thông báo kết quả ra màn hình
#include <bits/stdc++.h>
using namespace std;
int main ()
{
int a[32];
int n,i,s;
cout<<"nhap so phan tu cua mang ";
cin>>n;
cout<<"nhap cac phan tu cua mang ";
for (i=1; i<=n; i++)
{
s=0;
cin>>a[i];
}
for(i=1; i<=a[i]; i++) s=s+i;
cout<<s;
return 0;
}
Program HOC24;
var i,n: integer;
a: array[1..1000] of integer;
t: longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(i);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
write('Tong la: ',t);
readln
end.
Câu 22 Sử dụng vòng lặp While … do…Để viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 500.
Program HOC24;
var i,n,t: integer;
begin
t:=0; i:=1;
while t<=500 do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.
VCT nhập N số tự nhiên đầu tiên in ra chẵn lẻ
program ChenLe;
varn, i, chan, le: integer;
begin
chan := 0;
le := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
for i := 1 to n do
begin
if (i mod 2 = 0) then
beginwriteln(i, ' la so chan');
chan := chan + 1;
end
else
begin
writeln(i, ' la so le');
le := le + 1;
end;
end;
writeln('Co ', chan, ' so chan va ', le, ' so le trong ', n, ' so dau tien');
readln;
end.
Cho biết hoạt động của câu lệnh lặp for...do
Câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp , tùy theo cách lặp lại có thể là 1 hay nhiều lần .
#yBTr