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.txt';

var f1:text;

a,b,c,d: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(f1,a[n],b[n],c[n],d[n]);

end;

for i:=1 to n do 

  writeln(sqrt(sqr(a[i]-c[i])+sqr(b[i]-d[i])):4:3);

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='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.

#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long gcd(long long a,long long b)
{
    if (b==0) return(a);
    return gcd(b,a%b);
}
//chuongtrinhchinh
int main()
{

freopen("songuyen.inp","r",stdin);
cin>>a>>b;
cout<<gcd(a,b);
return 0;
}

 

24 tháng 1 2022

có thể viết kiểu dễ hiểu hơn đc ko ạ ? bài này em chưa học kiểu viết ct như này

 

14 tháng 3 2021

15 tháng 3 2021

Đưa kết quả ra màn hình mà bạn.

uses crt;

const fi='baitap.txt';

var f1:text;

a:array[1..5]of integer;

i:integer;

begin

clrscr;

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

for i:=1 to 5 do readln(f1,a[i]);

for i:=1 to 5 do write(a[i]:4);

close(f1);

readln;

end.

10 tháng 3 2022

const fi='nhap.txt';

uses crt;

var

f:text;

b:byte;

a:longint;

begin

clrscr;

assign(f,f1);

reset(f);

read(f,a,b);

close(f);

a:=exp(b*ln(a));

write('ket qua la: ',a);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long i,a[100],n;

int main()

{

freopen("songuyen.txt","r",stdin);

n=20;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}