Behind You's Profile

a.

var f:text;

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

n,i,d:integer;

begin

assign(f,'vanban.txt');

reset(f);

read(f,n);

for i:=1 to n do

read(f,a[i]);

for i:=1 to n do

if a[i]>0 then inc(d);

assign(f,'kq.out');

rewrite(f);

write(f,d);

close(f);

end.

cho tệp VANBAN.Txt chứa các số nguyên, mỗi số cách nhau 1 dấu cách và không kết thúc bằng kí tự xuống dòng

a, hãy đếm xem trong tệp có bao nhiêu số nguyên dương và đưa kq ra màn hình

b, tệp SO.TxT chứa tất cả các số chia hết cho 3 có trong tệp VANBAN.Txt mỗi số cách nhau một dấu cách và kt bằng kí tự xuống dòng 

m.n trả lời mình ngay được không ạ

1. Viết câu lệnh điều kiện kiểm tra xem số a là số dương hay số âm.
2. Viết câu lệnh điều kiện kiểm tra xem số x là số chẵn hay số lẻ.
3. Viết chương trình giải phương trình ax+b=0 với a,b bất kì nhập từ bàn phím.

1.

if a<0 then write('a la so am')

          else write('a la so duong');

2.

if (x mod 2= 0) then write('x la so chan')

                       else write('x la so le');

3.

var a,b:integer;
      x:real;
begin
    clrscr;
    writeln('Giai phuong trinh bac nhat mot an: ax + b = 0');
    writeln('--------------------------------------------------');
    write('nhap a= ');readln(a);
    write('nhap b= ');readln(b);
    if (a=0) then
    if (b=0) then writeln('phuong trinh vo so nghiem')
             else writeln('phuong trinh vo nghiem')
             else writeln('nghiem la: ',-b/a:3:1);
readln;
end.

 

Bài 1:Nhập vào một số tự nhiên n, in ra các số chẵn chia hết cho 6 trong khoảng từ 1 đến n.

Help me!!!!!!!!!!!!!!!!!! I need the answer now!

nhập vào ột số nguyên n lớn hơn 1 viết thuật toán kiểm tra xem só n có phải là số nguyên tố hay không biết ràng số nguyên tố chỉ chia hết cho 1 và chính nó 

 

Bài 2: Viết chương trình pascal nhập vào 1 số nguyên dương n. Nếu n =0 thì n! = 1. Nếu n > 0 thì n! = 1*2*3*...*n.

Bài 3:

Tính S₆ = 1! + 2! + ... + n!

Với n được nhập từ bàn phím.

Giúp mình với. Thank you very much!

bài 2:

var N,i:integer;

  giaithua:real;

begin

   clrscr;

   writeln('tinh giai thua');

   writeln('----------------------------');

   write('nhap so N= ');readln(N);

   giaithua:=1;

   for i:=1 to N do giaithua:=giaithua*N;

   writeln('giai thua N!= ',giaithua:3:1);

readln;

end.

var i,n:integer;
     ok:boolean;
begin
    clrscr;
    writeln('xet mot so co phai la so nguyen to khong?');
    writeln('----------------------------------------------');
    ok:=true;
    write('nhap n:= ');readln(n);
    for i:=2 to n-1 do if n mod i = 0 then ok:=false;
                       if ok then writeln('n la so nguyen to')
                       else writeln('n khong phai la so nguyen to');
readln;
end.