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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
DN
7 tháng 3 2022
uses crt;
var m,n,t,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);
readln;
end.
8 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
if (n%2==0)
{
t=0;
for (i=1; i<=n; i++) if (i%2==0) t+=i;
}
else
{
t=0;
for (i=1; i<=n; i++) if (i%2!=0) t+=i;
}
cout<<t;
return 0;
}
VQ
12 tháng 3 2022
tk
uses crt;
var m,n,t,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);
readln;
end.
14 tháng 3 2022
uses crt;
var n,i,t,dem:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then
begin
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln(t);
end
else
begin
t:=0;
dem:=0;
for i:=1 to n do
if i mod 2=1 then
begin
t:=t+i;
dem:=dem+1;
end;
writeln(t/dem:4:2);
end;
readln;
end.
6 tháng 3 2023
program Tong_phan_so;
varn, i, x : Integer;
tong, tong_phan_so, tong_phan_so_chan, tong_phan_so_le : Real;
begin
Write('Nhap n so: '); Readln(n);
tong := 0;
tong_phan_so := 0;
tong_phan_so_chan := 0;
tong_phan_so_le := 0;
for i := 1 to n do
begin
Write('Nhap so thu ', i, ': '); Readln(x);
tong := tong + x;
tong_phan_so := tong_phan_so + x/100;
if x mod 2 = 0 then
tong_phan_so_chan := tong_phan_so_chan + x/100
else
tong_phan_so_le := tong_phan_so_le + x/100;
end;
Writeln('Tong cua ', n, ' so la: ', tong:0:0);
Writeln('Tong phan so cua ', n, ' so la: ', tong_phan_so:0:2);
Writeln('Tong phan so chan cua ', n, ' so la: ',tong_phan_so_chan:0:2);
Writeln('Tong phan so le cua ', n, ' so la: ', tong_phan_so_le:0:2);
Writeln('Gia tri trung binh cua ', n, ' so la: ',tong_phan_so/n:0:2);
end.
DT
17 tháng 2 2022
{PROGRAM Bai_tap1;
USES crt;
VAR n, i, C, L:Bytbe;
BEGIN
clrscr;
Write('Nhap n:');Readln(n);
C:=0;L:=0;
For i:=1 to n do
If i mod 2=0 then C:=C+i else L:=L+i;
writeln('Tong cac so chan la:',C);
writeln ('Tong cac so le la:',L);
Readln;
end.
}
ML
19 tháng 3 2023
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
ML
20 tháng 3 2022
Program HOC24;
var i,n: integer;
S,P: longint;
begin
write('Nhap n: '); readln(n);
{..............................................}
readln
end.
-----------------------------------------------------------
Bạn điền vào {........................} theo từng bài nhé
a) S:=0;
for i:=1 to N do if i mod 2=1 then s:=s+i;
write('S= ',s);
b)
S:=0;
for i:=1 to N do if i mod 2=0 then s:=s+i;
write('S= ',s);
c) P:=1;
for i:=1 to N do if i mod 2=0 then p:=p*i;
write('P= ',p);
d)
P:=1;
for i:=1 to N do if i mod 2=1 then p:=p*i;
write('P= ',p);
DT
15 tháng 5 2022
program C1;
uses crt;
Var A:array[1..100] of Integer ;
Tc, Tl : Integer ;
n, i: Btybe ;
begin
clrscr ;
Write( ' nhap n: ' ) ; Readln(n) ;
For i:=1 to n do
begin
Write ( ' A[ ' ,i, '] = ' ) ; Readln (A[i]) ;
end ;
Tc: = 0 ; Tl: = 0 ;
For i: = 1 to n do
If A[i] mod 2=0 then Tc:=Tc+A[i]
else Tl:= Tl + A[i] ;
Writeln ( ' Tong so chan : ' ; Tc) ;
Writeln ( ' Tong so le : ' , Tl ) ;
readln ;
end.