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.

14 tháng 2

n = int(input("Nhập số n (>0): "))


if n > 0:

# a. Đếm số số chẵn nhỏ hơn n

count_even = (n - 1) // 2

print(f"Số lượng số chẵn < {n}: {count_even}")

# b. Tính tổng các số lẻ từ 1 đến n

sum_odd = sum(range(1, n + 1, 2))

print(f"Tổng các số lẻ từ 1 đến {n}: {sum_odd}")

else:

print("Vui lòng nhập một số nguyên dương.")


uses crt;

var t,n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

t:=0;

for i:=0 to n do 

  if i mod 2=0 then 

begin

t:=t+i;

dem:=dem+1;

end;

writeln(dem,' ',t);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,dem,t;

int main()

{

cin>>n;

dem=0; t=0;

for (i=0; i<=n; i++)

if (i%2==0) 

{

dem++;

t=t+i;

}

cout<<dem<<" "<<t;

return 0;

}

22 tháng 1 2022

Var s,so,i,n,dem:integer;

Begin

Write('Nhap n = ');readln(n);

For i:=0 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

If so mod 2 = 0 then

Begin

dem:=dem+1;

s:=s+so;

End;

End;

Writeln('Co ',dem,' so chan');

Write('Tong cua chung la ',s);

Readln;

End.

20 tháng 3 2022

Câu 1: 
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

20 tháng 3 2022

Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

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.  
}

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then 

begin

write(a[i]:4);

t:=t+a[i];

end;

writeln;

writeln(t);

readln;

end.

Bài 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do 

 s:=s*i;

writeln(n,'!=',s:0:0);

readln;

end.

4 tháng 4 2023

1).

program oken;

uses crt;

var n,i: integer;

      gt: qword;

begin

write('nhap n: '): readln(n);

gt:=1;

for i:=1 to n do gt:=gt*i;

writeln('N!=',gt);

readln;

end.

2).

program tongcacsole;

uses crt;

var t,i:longint;

begin

clrscr;

for i:=1 to 203 do 

  if i mod 2 = 1 then t:=t+i;

write(t);

end.

3).

program tongcacsochan;

uses crt;

var t,i:longint;

begin

clrscr;

for i:=1 to 20 do 

  if i mod 2 = 0 then t:=t+i;

write(t);

end.

uses crt;

var n,i,t,s:integer;

begin

clrscr;

repeat

readln(n);

until n<>0;

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

writeln(t);

s:=1;

for i:=1 to n do 

  if i mod 2=1 then s:=s*i;

writeln(s);

readln;

end.