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.
const fi='bai1.inp';
fo='bai1.out';
var f1,f2:text;
a:array[1..100]of integer;
n,i,t,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t:=0;
dem:=0;
for i:=1 to n do
begin
if a[i] mod 2<>0 then t:=t+a[i]
else inc(dem);
end;
writeln(f2,'Tong cac so le la: ',t);
writeln(f2,'So so chan la: ',dem);
close(f1);
close(f2);
end.
const fi='bai1.inp';
fo='bai1.out';
var f1,f2:text;
a,m,lt,i:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,m);
lt:=1;
for i:=1 to m do
lt:=lt*a;
writeln(f2,lt);
close(f1);
close(f2);
end.
uses crt;
const fi='bai1.inp';
var a,b:integer;
f:text;
begin
clrscr;
assign(f,fi); rewrite(f);
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln(f,'a=',a);
writeln(f,'b=',b);
writeln(f,a,'+',b,'=',a+b);
close(f);
end.
const fi='bai25.inp';
fo='bai25.out';
var f1,f2:text;
a:array[1..1000]of integer;
i,n,dem,dem1,d:integer;
kt:boolean;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
dem:=0;
dem1:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem)
else inc(dem1);
writeln(f2,'So luong so chan la: ',dem);
writeln(f2,'So luong so le la: ',dem1);
d:=abs(a[2]-a[1]);
kt:=true;
for i:=2 to n do
if abs(a[i]-a[i-1])<>d then
begin
kt:=false;
break;
end;
if kt=true then writeln(f2,'Day la day cap so cong')
else writeln(f2,'Day khong la day cap so cong');
close(f1);
close(f2);
end.
#include <bits/stdc++.h>
using namespace std;
long long m,n,t,i;
int main()
{
freopen("dulieu.inp","r",stdin);
freopen("ketqua.out","w",stdout);
cin>>m>>n;
t=0;
for (i=m; i<=n; i++)
if (i%2!=0) t+=i;
cout<<t;
return 0;
}
# Mở tệp IN.INP để đọc thông tin
with open('IN.INP', 'r') as file_input:
# Đọc hai số nguyên M và N từ tệp IN.INP
M, N = map(int, file_input.readline().split())
# Mở tệp OUT để ghi thông tin
with open('OUT.OUT', 'w') as file_output:
# Lặp qua tất cả các số nguyên trong phạm vi từ M đến N
for num in range(M, N+1):
# Kiểm tra xem số đó có phải là số chẵn không
if num % 2 == 0:
# Nếu là số chẵn, ghi số đó vào tệp OUT.OUT
file_output.write(str(num) + '\n')
Program HOC24;
var i,n: integer;
t: longint;
f1,f2: text;
begin
assign(f1,'BAI1.INP');
reset(f1);
read(f1,n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
close(f1);
assign(f2,'BAI1.OUT');
rewrite(f2);
write(f2,t);
close(f2);
end.