Viết chương trình (Câu lệnh lặp)

[YenVy2004]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình:
S= 1+2+3+...+100
P= 1.2.3. ... .150
S= 2+4+6+....+100

 

[lanxinhdepchaizo]

Var n: integer;
s: longint;
begin
clrscr;
write( 'Nhap só [tex]n_{100}[/tex] : '); readln([tex]n_{100}[/tex] );
until ([tex]n_{100}[/tex] >=0);
s:=0;
for i:=1 to [tex]n_{100}[/tex] do
s:=s+i;
write('Tong cac so tu 1 toi ', [tex]n_{100}[/tex] ,' =', s);
readln
end.

 

[Phạm Ngọc Thảo Vân]

* Tổng S= 1+2+3+...+100:
program tinhtongs;
uses crt;
var S,N : integer;
begin

clrscr;
S:=0;
for N:= 1 to 100 do S:= S + N;
Write(' Tong S=',S:10:2);
Readln;​

end.

 

[ka1412]

uses crt;
var i:integer;p:real;s:longint;
begin
    clrscr;
    s := 0;p:=1;
    writeln('S=1+2+...+100');
    for i := 1 to 100 do s:=s+i;
    writeln('S= ',s);
    s := 0;
    writeln('P=1.2. ... .150');
    for i := 1 to 150 do p:=p*i;
    writeln('P= ',p);
    writeln('S= 2+4+6+....+100');
    for i:=2 to 100 do
    if i mod 2 =0 then s:=s+i;
    write('S= ',s);
readln
end.