viết chương trình tính tổng các số bé hơn 100
làm ơn kiến thức lớp 8
HT
Những câu hỏi liên quan
viết chương trình tính tổng các số từ 1 đến 100 chia hết cho 3
cái này cô giáo cho vào kiến thức lớp 8
ai giúp em với
#include <bits/stdc++.h>
using namespace std;
int t,i;
int main()
{
t=0;
for (i=1; i<=100; i++)
if (i%3==0) t=t+i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
NM
16 tháng 2 2022 lúc 9:18
Viết chương trình tính tổng các số chẵn từ 1->n
Viết chương trình tính tổng các số lẻ từ 1->n
Giúp em với ạ:))em cảm ơn!!
Viết chương trình tính tổng các số chẵn từ 1->n
Uses CRT;
Var i,n,s:integer;
Begin clrscr;
Write('Nhap so n= ');Readln(n);
S:=0;
For i:=1 to n do
If i mod 2 = 0 do S:=S+i;
Writeln;
Write('tong cac so chan la ',S);
Readln;
End.
Viết chương trình tính tổng các số lẻ từ 1->n
program bai1;
var s,i,n:longint;
begin write('N= ');
readln(n); s:=0;
for i:=1 to n do if i mod 2<>0 then s:=s+i;
write('s= ',s);
readln
end.
Chúc em học tốt
Đúng 0
Bình luận (0)
PH
14 tháng 1 2023 lúc 21:34
Viết chương trình in ra tổng các số tự nhiên chia hết cho 3 bé hơn n.
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
write(t);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập N số nguyên từ bàn phím với N<100
Hãy in ra số dương của dãy số và tính trb của dãy số và tính trb các số dương.
Ai giúp với nãy có bạn chỉ mà kiến thức lớp 11
uses crt;
var a:array[1..100]of integer;
i,n,t,dem1,t1:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Trung binh cua day la: ' ,t/n:4:2);
t1:=0;
dem1:=0;
for i:=1 to n do
if a[i]>0 then
begin
t1:=t1+a[i];
inc(dem1);
end;
writeln('Trug binh cac so duong la: ',t1/dem1:4:2);
readln;
end.
Đúng 0
Bình luận (0)
1. Viết chương trình nhập vào 1 dãy số, in ra các số lớn hơn 0, bé hơn 0. Tính tổng các số lớn hơn 0, bé hơn 0. In ra các số chẵn, số lẻ. In ra các số vừa chia hết cho 2 và 5. Sắp xếp dãy theo thứ tự tăng dần. Tìm giá trị lớn nhất trong dãy. Chèn thêm vào trong dãy 1 phần tử ở bất kỳ vị trí nào
Giúp mik với
Viết chương trình tính tổng các số tự nhiên để tổng lớn hơn 20 ?
Xem chi tiết
Program HOC24;
var i,n,t: integer;
begin
n:=1; t:=0;
while t<=20 do
begin
t:=t+n;
n:=n+1;
end;
writeln('Tong la: ',t);
readln
end.
Đúng 2
Bình luận (0)
uses crt;
var i,n,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
t:=t+i;
if t>20 then
begin
writeln(t);
break;
end;
readln;
end.
Đúng 0
Bình luận (0)
Câu 1: viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5Câu 2: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10 Câu 3: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến nGiúp với , theo kiểu câu lệnh while do
Xem chi tiết
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
Đúng 1
Bình luận (3)
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (1)
câu 1viết chương trình tính tổng của các số lẻ nhỏ hơn N với N được nhâp từ bàn phím
câu 2 viết chương trình in ra màn hình n*
câu 3 viết chương trình tính tổng của N số sao cho tổng đó lớn nhất nhỏ hơn 1000
giúp mình đi mai mk thi rồi
Viết chương trình Pascal:
Nhập một dãy số thực A có N phần tử. N là một số tự nhiên được nhập từ bàn phím (N bé hơn hoặc bằng 100). Chương trình sẽ đi tìm giá trị bé nhất của dãy số A và tìm tổng các phần tử có chỉ số là số chẳn. Các kết quả được in lên màn hình có 2 chữ số thập phân.
Giúp mình với ạ, sáng mai nộp bài rồi:((
uses crt;
var a:array[1..100]of real;
i,n:integer;
min,t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min:4:2);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+a[i];
writeln('Tong cac phan tu co chi so chan la: ',t:4:2);
readln;
end.
Đúng 0
Bình luận (0)