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â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.
Câu 1:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 2 to n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);
readln;
end.
Câu 2:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);
readln;
end.
Uses crt;
var i,n,k,u,f,y: longint;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i]);
for i:=1 to n do if(a[i]<0) then k:=k+a[i];
for i:=1 to n do if(a[i]>0) then u:=u+a[i];
for i:=1 to n do if(a[i] mod 2<>0) then f:=f+a[i];
for i:=1 to n do if(a[i] mod 2=0) then y:=y+a[i];
writeln('Tong cac so am la: ',k);
writeln('Tong cac so khong am: ',u);
writeln('Tong cac so le la: ',f);
writeln('Tong cac so chan la: ',y);
readln;
end.
program TinhTongSoTuNhienLe;
var
N, i, sum: integer;
begin
write('Nhap so N: ');
readln(N);
sum := 0;
for i := 1 to N do
begin
if i mod 2 = 1 then // Kiểm tra số lẻ
sum := sum + i; // Cộng dồn vào tổng
end;
writeln('Tong cac so tu nhien le nho hon hoac bang N la: ', sum);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t1,t2;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
if (a[i]%2==0) t1+=a[i];
else t2+=a[i];
}
cout<<t1<<endl;
cout<<t2;
return 0;
}
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.
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.