1B

2D

Assign(f,’KQ.TXT’);

Rewrite(f);

Write(f,C,V);

Close(f);

Assign(f2,’ketqua.txt’);

Rewrite(f2);

Write(f2,T,S);

Close(f2);

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

//chuongtrinhcon

bool ktnt(long long x)

{

if (x<=1) return(false);

for (int i=2; i*i<=x; i++)

if (x%i==0) return(false);

return(true);

}

//chuongtrinhchinh

int main()

{

cin>>n;

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

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

return 0;

}

Code c:

#include <stdio.h>

#include <conio.h>

#include <math.h>

#define PI 3.14159

int main() {

            int r;

            float chuvi, dientich;

            printf("Nhap ban kinh r:");

            scanf("%d", &r);

            chuvi = 2*PI*r;

            dientich = PI*r*r;

            printf("Chu vi hinh tron la: %f\n", chuvi);

            printf("Dien tich hinh tron la: %f", dientich);

            getch();

BN THAM KHẢO:

Program S_Hinh_Tron;
Uses Crt;
Var r,S:real;
Begin
Clrscr;
Writeln(‘TINH DIEN TICH HINH TRON:’);
Write (‘Nhap ban kinh R=’);readln(r);
dt:=pi*r*r;
Writeln(‘Dien tich hinh tron la:’,dt:6:2);
Readln;
End.

var s:string;

f1:text;

a:byte;

begin

assign(f1,'c:\ghixau1.txt'); rewrite(f1);

readln(s);

writeln(f1,s);

close(f1);

End.

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.

Bạn VÔ đây mà tham khảo :

https://sachgiaibaitap.com/sach_giai/giai-tin-hoc-lop-11-bai-7-cac-thu-tuc-chuan-vao-ra-don-gian/#gsc.tab=0

~chucs hok tốt