Viết chương trình nhập vào một số nguyên n ( 0

Viết chương trình nhập vào một số nguyên n ( 0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình nhập vào một số nguyên n ( 0Bình luận

  • Program BT;
    Var n,i,s,t,d :longint;
    Begin
    repeat
    Write (‘Nhap N : ‘);Readln(n);
    until (n > 0) and (n < 10000);
    s := 0;
    d := 0;
    t := 0;
    For i := 1 to n do
    Begin
    s := s + i;
    If i mod 5 = 0 then
    Begin
    d := d + 1;
    If i mod 3 = 0 then t := t + i;
    end;
    end;
    Writeln (‘a,Tong la : ‘,s);
    Writeln (‘b,So cac so chia het cho 5 la : ‘,d);
    Write (‘c,Tong cac so vua chia het cho 5 va 3 la : ‘,t);
    end.

    Bình luận
  • Viết một bình luận