Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

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.

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.

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.

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;

}

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

 

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.