K
Khách

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.

uses crt;

const fi='baitap.inp';

var f1:text;

a,b,i,t:integer;

begin

clrscr;

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

readln(f1,a,b);

t:=0;

for i:=a to b do 

 if i mod 2=0 then t:=t+i;

writeln(t);

close(f1);

readln;

end.

11 tháng 6 2020

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.

14 tháng 4 2022

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.

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.

30 tháng 3 2022

Viết giúp mik nhưng là cho biết 2 số lớn nhất với ạ

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

}

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

 

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.