YOMEDIA

Behind You's Profile

Behind You

Behind You

09/02/2002

Số câu hỏi 0
Số câu trả lời 4
Điểm 20
Kết bạn

Bạn bè (0)

Hoạt động gần đây (9)

  • Behind You đã trả lời trong câu hỏi: giải bài tập passcal Cách đây 6 năm

    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.

  • Behind You đã đặt câu hỏi: giải bài tập passcal Cách đây 6 năm

    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 indecision

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

  • Behind You đã đặt câu hỏi: Bài tập của pascal Cách đây 6 năm
    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.
  • Behind You đã trả lời trong câu hỏi: Bài tập của pascal Cách đây 6 nă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!

  • Behind You đã đặt câu hỏi: viết thuật toán Cách đây 6 năm

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

  • Behind You đã trả lời trong câu hỏi: viết thuật toán Cách đây 6 năm

    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.

     

Không có Điểm thưởng gần đây

AANETWORK
 

 

ATNETWORK
ON