Program bai1;

uses crt;

var n , i : integer;

s: real;

begin

clrscr;

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

for i:= 1 to n do

s:=s+sqrt((n-1)+sqrt(n));

writeln('tong s = ' ,s:4:2);

readln;

end.

Program bai1;

uses crt;

var a,b,c,i: integer;

begin

clrscr;

for i:= 100 to 999 do

begin

a:= i div 100;

b:= (i div 10 ) mod 10;

c:= i mod 10;

if a*a*a+b*b*b+c*c*c = i then

begin

writeln(' so ' , i , ' co gia tri bang tong lap phuong cac chu so cua no .');

end;

end;

readln;

end.

Program bai1;

uses crt;

var a:array[1..100] of integer;

i,n,dem: integer;

begin

clrscr;

repeat

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

until n > 0;

for i:=1 to n do

begin

write('nhap a[',i,'] = '); readln(a[i]);

end;

dem:=0;

for i:= 1 to n do

if a[i] mod 2 <> 0 then dem:=dem+1;

writeln('co ', dem,' so le ');

readln;

end.

viet day du loi giai di

289 vi no 3 chu so khac nhau va be nhat 

mình làm sai rồi nha

*xác định bài toán:

input : dãy số tự nhiên đầu tiên : 1, 2, ... ,100.

output: giá trị của tổng 1 + + ... + 100.

*thuật toán:

B1: sum<-0; i<-0.

B2: i<- i+1.

B3: nếu i <=100 , thì sum<- sum+i và quay trở lại B2.

B4: thông báo kết quả và kết thúc thuật toán.

Program bai1;

uses crt;

var i,n,s,s1: integer;

a:array[1..100] of integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap a[',i,'] ='); readln(a[i]);

end;

for i:= 1 to n do

if a[i] mod 2 = 0 then s:=s+a[i];

writeln('tong cac so duong = ' ,s);

for i:= 1 to n do

if a[i] mod 2 <> 0 then s1:=s1+a[i];

writeln('tong cac so le =' ,s1);

readln;

end.

*Thuật toán là một phần của chương trình thể hiện được các thủ thuật thông minh của người lập trình để máy chạy đúng nhất, ít lãng phí bộ nhớ và thời gian nhất.

* Các bước để giải một bài toán trên máy tính:

+ Xác định bài toán

+ Lựa chọn hoặc thiết kế thuật toán

+ Viết chương trình

+ Hiệu chỉnh

+ Viết tài liệu.

(-2)^2.3-(1^10+8):(-3)^3

=4.3-(1+8):27

=12-9:27

=12-0,3333333333

=11,7654321076