viết chương trình in ra tổng các số nhỏ hơn hoặc bằng n ( với n đc nhập) mai phải thi r mn giúp mk vs
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.
Những câu hỏi liên quan
30 tháng 12 2022
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.
30 tháng 12 2022
Ủa bạn ngay chỗ var n i: integer có thể thay thế bằng longint ko
17 tháng 3 2021
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 2=0 then
begin
inc(dem);
write(i:4);
if dem=15 then writeln;
end;
readln;
end.
AN
4 tháng 5 2019
Mày thử giải đê :)) Help đi :)) nếu đc còn ko đc thì xem lại bạn nhóe :)) Minh
22 tháng 4 2023
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.
CV
2
1 tháng 4 2021
program tongchan;
uses crt;
var i,n,s:integer;
a:array[1..50] of integer;
Begin
Write('n=');readln(n);
for i:=1 to n do
Write('a[,'i',]=');readln(a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
if s=0 then write('Trong mang ko co so chan') else write('Tong cac so chan la:,s');
readln;
end.
4 tháng 4 2023
program Min;
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Cac so le nho hon hoac bang ',n,'la :');
for i:=1 to n do if i mod 2 = 1 then write(i:4);
readln
end.
27 tháng 10 2021
1:
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+i*i;
cout<<s;
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.