K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

11 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long i,t;

int main()

{

t=0;

for (i=1;i<=100;i++)

t=t+i;

cout<<t;

return 0;

}

4 tháng 5 2023

program TinhTongTich;

var

      N, i, Tong, Tich:integer;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      i:=1;

      Tong:=0;

      Tich:=1;

      while i<=N do

      begin

            Tong:=Tong+i;

            Tich:=Tich*i;

            i:=i+1;

      end;

      writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);

      writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);

      readln;

end.

28 tháng 2 2021

câu 1:

uses crt;

var p,i:integer;

begin

clrscr;

p:=1;i:=1;while i<=5 do

begin

p:=p*i;i:=i+1;

end;

write(p);

readln;

end. 

bai 2:

uses crt;var p,i:integer;begin    clrscr;    p:=1; i:=0;    while i <=10 do    begin

i:=i+1;        if (i mod 2<>0) then p:=p*i;    end;    write(p);    readln;end. bai 3:

uses crt;var n,i,p:integer;begin     clrscr;     write('nhap n: ');     readln(n);     i:=1;     p:=1;     while i<=n do     begin       if i mod 2=0 then p:=p*i;       i:=i+1;     end;     write(p);     readln;end.     

 

28 tháng 2 2021

bạn xuống đây nếu không hiểu

 

undefinedundefined

17 tháng 3 2022

* Sử dụng For ... do

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

* Sử dụng While ... do

Var i,s:integer;

Begin

i:=1;

While i<=10 do

Begin

s:=s+i;

i:=i+1;

End;

Write('tong la ',s);

Readln;

End.

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

i:=0;

while i<=n do 

 begin

i:=i+1;

if i mod 2=0 then t:=t+i;

end;

writeln(t);

readln;

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

i:=5;

while i<=10 do 

 begin

t:=t+i;

i:=i+1;

end;

writeln(t);

readln;

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.