Bài 1:Program Sum;Uses crt;Var n, res: longint;Begin Clrscr; Write('Nhap n: '); Readln(n); res := n * (n + 1) div 2; Write('Sum = ',res); Readln End. Bài 2: Program Sum;Uses crt;Var n, i: longint; res: extended;Begin Clrscr; Write('Nhap n: '); Readln(n); res:=0; For i:=1 to n do res := res + 1/i; Write('Sum = ',res:0:2); Readln End. Bài 3: Program Sum;Uses crt;Var n, x, i: longint; res: extended;Begin Clrscr; Write('Nhap n, x: '); Readln(n, x); res:=0; For i:=1 to n do res := res + x/i; Write('Sum = ',res:0:2); Readln End. uses crt;var a,b,i,s,d:longint;beginclrscr; write('a,b(a<b)=');readln(a,b); for i:=a to b do if i mod 5=0 then begin inc(s,i); inc(d); end; writeln('So chia het cho 5 trong pham vi tu a den b: ',d); writeln('Tong cac so chia het cho 5 trong pham vi tu a den b: ',s);readln end.  4 trả lời Tính nhanh giá trị của các biểu thức sau (Tin học - Lớp 8) 2 trả lời Bé Nghệ là một học sinh lớp 2 (Tin học - Lớp 9) 1 trả lời Nếu 2 vòng lặp For thì sẽ chạy như thế nào (Tin học - Lớp 8) 1 trả lời Một hình vuông có chu vi 16 cm (Tin học - Lớp 7) 3 trả lời Đơn vị đo dung lượng thông tin là gì (Tin học - Lớp 6) 4 trả lời Tìm x thuộc N (Tin học - Lớp 7) 2 trả lời
uses crt;var s,n:longint;beginclrscr;s:=0;n:=1;while s≥25 dobegins:=s+n;inc(n);end;writeln(s);writeln('So n nho nhat sao cho tong S≥25 la: ',n);readln; end.
Viết chương trình tính tổng các số từ a đến b biết a,b được nhập từ bàn phím lưu ý a nhỏ hơn b Các câu hỏi tương tự
Viết chương trình tính và đưa ra màn hình tổng S và số lượng các số nguyên chẵn trong phạm vi từ a đến b? Với a, b được nhập từ bàn phím (a Các câu hỏi tương tự |
