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='bt1.inp';
fo='bt1.out';
var f1,f2:text;
a,b:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,'Chu vi la: ',(a+b)*2);
writeln(f2,'Dien tich la: ',a*b);
close(f1);
close(f2);
end.
uses crt;
const fi='baitap.txt';
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln('Chu vi la: ',(a+b)*2);
writeln('Dien tich la: ',a*b);
close(f1);
readln;
end.
uses crt;
const fi='baitap.txt';
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln('Chu vi hinh chu nhat la: ',(a+b)*2);
close(f1);
readln;
end.
uses crt;
const fi='dulieu.dat';
var f1:text;
a,b,p,s:array[1..100]of real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(a[n],b[n]);
end;
for i:=1 to n do
begin
p[i]:=(a[i]+b[i])/2;
s[i]:=a[i]*b[i];
end;
for i:=1 to n do
writeln(p[i]:4:2,' ',s[i]:4:2);
close(f1);
readln;
end.
const fi='hcn.inp';
fo='hcn.out';
var f1,f2:text;
a,b:array[1..100]of integer;
i,j,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);
close(f1);
close(f2);
end.
const fi='hcn.inp';
fo='hcn.out';
var f1,f2:text;
a,b:array[1..100]of integer;
i,j,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);
close(f1);
close(f2);
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
freopen("sn.inp","r",stdin);
freopen("cn.out","w",stdout);
cin>>a>>b;
cout<<a*b;
return 0;
}
Câu 1:
uses crt;
const fi='bai1.inp';
var f1:text;
a,b:real;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln(a*b:4:2);
close(f1);
readln;
end.
Câu 2:
const fi='bai2.inp';
fo='bai2.out';
var f1,f2:text;
a,b:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,a*b:4:2);
close(f1);
close(f2);
end.
Câu 3:
const fi='bai3.inp';
fo='bai3.out';
var f1,f2:text;
a,b:array[1..100]of real;
i,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
writeln(f2,a[i]*b[i]:4:2);
close(f1);
close(f2);
end.
Câu 4:
const fi='bai4.inp';
fo='bai4.out';
var f1,f2:text;
a,b,c,cv:integer;
p,s:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
cv:=a+b+c;
p:=cv/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(f2,'Chu vi la: ',cv);
writeln(f2,'Dien tich la: ',s:4:2);
close(f1);
close(f2);
end.
Câu 5:
const fi='bai5.inp';
fo='bai5.out';
var f1,f2:text;
m:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m);
if m mod 2=0 then writeln(f2,m,' la so chan')
else writeln(f2,m,' la so le');
close(f1);
close(f2);
end.
Câu 6:
const fi='bai6.inp';
fo='bai6.out';
var a:array[1..100]of integer;
n,i,t,dem:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
for i:=1 to n do
write(f2,a[i]:4);
writeln(f2);
write(f2,'Cac so chan la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(f2,a[i]:4);
writeln(f2);
dem:=0;
for i:=1 to n do
if a[i]>10 then inc(dem);
writeln(f2,'So phan tu lon hon 10 la: ',dem);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,'Tong cac phan tu cua day la: ',t);
close(f1);
close(f2);
end.
Câu 7:
const fi='bai7.inp';
fo='bai7.out';
var a:array[1..100]of integer;
n,i,t,dem:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
for i:=1 to n do
write(f2,a[i]:4);
writeln(f2);
write(f2,'Cac so le la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(f2,a[i]:4);
writeln(f2);
dem:=0;
for i:=1 to n do
if a[i]=0 then inc(dem);
writeln(f2,'So phan tu bang 0 la: ',dem);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,'Tong cac phan tu cua day la: ',t);
close(f1);
close(f2);
end.