Bài 7. Câu lênh lặp

var n,i,d : longint;

begin

Write('nhap so N');
Readln(N);
d :=0;
For i:=1 to n do
If n mod i =0 then d:=d+i;
Writeln('Tong uoc so cua ',n,'la ',d );
Readln;
end.

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long x,n;

int main()

{

cout<<x<<n;

cout<<pow(x,n);

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,ln;

int main()

{

ln=LLONG_MIN;

cin>>n;

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

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}

program Hien_thi;

uses crt;

var n,i:longint;

begin

clrscr;

writeln('nhap so tu nhien n'); readln(n);

for i:=1 to n do

if n mod i=0 then writeln('Uoc cua n la',n/i:0:0);

readln

end.

Program tim_uoc;

Uses crt;

Vả i,N:integer;

Begin

Clrscr;

Writeln('Nhap gia tri N:');Readln(N);

For i:=1 to N do

If N mod i =0 then writeln(i,'la uoc cua N);

Readln

End.

program Hien_thi;

uses crt;

var n,i:longint;

begin

clrscr

for i:=1 to n do

if n mod i=0 then writeln('Uoc cua n la',n/i:0:0);

readln

end.

giúp mình vs nha

Var s,i,n : Integer

Begin

Writeln( ' Nhap n = ') ; Readln ( n) ;

S:= 0 ;

For i := 1 to 10 do

If i mod 2 = 0 then s:= s+1

Writeln (' Tong cac so chan<= ' , n , ' la ',S ) ;

Readln ;

End.

var S:integer;

begin

S:=1+2+3+4+5;

Writeln('tong la =',S);

readln

end.

Program Tinh_toan;

uses crt;

var i,n:integer;

S:longint;

begin

For i:=1 to 5 do S:= S+i;

write('tong S = ' , S);

readln

end.

var i,s:integer;

begin

s:=0;

for i:=1 to 5 do

s:=s+i;

writeln(' Tong la: ',s);

readln;

end.

program tong_chan;
uses crt;
var N,dem:integer;
Tong:longint;
BEGIN
Clrscr;
writeln('Nhap so nguyen N =');
readln(N);
Tong := 0;
dem := 0;
while dem < N do
begin
Tong := Tong + dem*2;
dem := dem + 1;
end;
write('Tong', N, 'so tu nhien chan dau tien la: ',Tong);
readln;
END.

program bai1;

var s,i,n:longint;

begin

write('N= ');;

readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

write('s= ',s);

readln

end.

Program Marble_Top;

uses crt;

var i,n,t:integer;

begin

write('nhap n '); readln(n);

for i:= 1 to n do

if i*i =n then t:= t+1;

if t=1 then write (n, ' la so chinh phuong') else write (n, ' khong la so chinh phuong');

readln

end.

var a:integer;

begin

readln(a);

if sqr(trunc(sqrt(a)))=a then

writeln('la so chinh phuong') else writeln('khong la so chinh phuong');

end.

var a,b,c,n:integer;

begin

readln(n,a,b,c);

if (a=b) or (b=c) or (a=c) then

writeln('can') else writeln('khong can');

end.

2/ program bt;

var N,i:integer;

begin

write('nhap so N'); readln(N);

writeln;

writeln (' bang nhan ', N);

writeln;

for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end

readln

end.

Mik chỉ bít làm bài 2 thôi!

program loc_so_le;

uses crt;

var N,y: longint;

begin

Writeln('Nhap so N '); Readln(N);

for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');

Readln;

end.

program bang_cuu_chuong;

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('nhap n:');readln(n);

s:=0;

for i:=1 to 10 do

writeln(n,' x',i:2,' = ',n*i:2);

readln;

end.