Viết chương trình N số nguyên. Tính a, biết a=1 : N giúp mình câu này với ạ do mình chưa hiểu tin lắm

2 câu trả lời

program bai_giai;

uses crt;

var n:longint; a:real;

begin

clrscr;

write('nhap n:');readln(n);

a:=1/n;

write('a=',a);

readln

end.

Gửi bạn:

uses crt;

var i,N : Integer;

       a: real;

begin

clrscr;

writeln('nhap n:'); readln(n);

a:=i/n;

writeln('a=',a);

readln

end.

CHÚC BẠN HỌC TỐT