Những câu hỏi liên quan
bùi nguyễn huyhoang
Xem chi tiết
Minh Lệ
11 tháng 6 2020 lúc 12:25

Program HOC24;

const fi='baitap.inp';

var f: text;

a,b: integer;

t: longint;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,a,b);

close(f);

end;

begin

ip;

writeln('Thuong cua 2 so la : ',a/b:1:2);

t:=0;

for i:=a to b do t:=t+i;

writeln('Tong cac so co trong khoang tu ',a,' den ',b,' la ',t);

t:=1;

for i:=a to b do if i mod 2<>0 then t:=t+i;

write('Tich cac so le trong khoang tu ',a,' den ',b,' la ',t);

readln

end.

Bình luận (0)
An
Xem chi tiết
Minh Lệ
14 tháng 4 2022 lúc 6:16

Program HOC24;

var f1,f2: text;

a,b: integer;

t: longint;

begin

assign(f1,'input.pas');

reset(f1);

assign(f2,'output.pas');

rewrite(f2);

readln(f1,a,b);

t:=a*b;

write(f2,t);

close(f1);

close(f2);

End.

Bình luận (0)
Minh
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:08

const fi='input.inp'

fo='output.out'

var a,b:integer;

f1,f2:text;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

if a<b then writeln(f2,a)

else writeln(f2,b);

close(f1);

close(f2);

end.

Bình luận (1)
Ngọc Hồng
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2022 lúc 14:48

#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;

}

Bình luận (0)
Nguyễn Bình Thiên
Xem chi tiết
Nguyễn Bình Thiên
Xem chi tiết
Nguyễn Bình Thiên
Xem chi tiết
Huệ Bùi Thị Kim
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 4 2022 lúc 10:04

#include <bits/stdc++.h>
using namespace std;
unsigned long long a,b;
//chuongtrinhcon
unsigned long long ucln(long long a,long long b)
{
    if (b==0) return(a);
    else return(ucln(b,a%b));
}
//chuongtrinhchinh
int main()
{
    freopen("vidu.inp","r",stdin);
    freopen("vidu.out","w",stdout);
    cin>>a>>b;
    cout<<ucln(a,b);
    return 0;
}

 

Bình luận (0)
Nguyen Hong Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 21:40

uses crt;

const fi='x.inp'

var f1:text;

a,b:array[1..100]of integer;

i,n:integer;

begin

assign(f1,fi); reset(f1);

n:=0;

while not eof(f1) do 

begin

n:=n+1;

readln(f1,a[n],b[n]);

end;

for i:=1 to n do 

  begin

writeln('Chu vi dong ',i,' la: ',(a[i]+b[i])*2);

writeln('Dien tich dong ',i,' la: ',a[i]*b[i]);

end;

close(f1);

readln;

end.

Bình luận (0)