var a,b,c:integer;

begin

write('a = ');readln(a);

write('b = ');readln(b);

write('c = ');readln(c);

if (a+b>c) and (a+c>b) and (b+c>a) then

write('ba so do co the la do dai ba canh cua tam giac')

else write('ba so do khong the la do dai ba canh cua tam giac');

readln

end.

tham khảo

Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer; 
S:real; 
begin; 
write('nhap n = '); 
readln(n); 
s:=0; 
for i :=1 to n do S :=S + 1/i; 
writeln('tong S = ',S:5:2); 
readln 
end.

tham khảo

Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer; 
S:real; 
begin; 
write('nhap n = '); 
readln(n); 
s:=0; 
for i :=1 to n do S :=S + 1/i; 
writeln('tong S = ',S:5:2); 
readln 
end.

Uses crt;

var i,n,y: integer;

begin clrscr;

readln(n);

for i:=1 to n do s:=i*i;

Writeln(s);

readln;

end.

Program HOC24;

var i,n: integer;

s: longint;

begin

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

s:=0;

for i:=1 to n do s:=s+sqr(i);

write('S= ' ,s);

readln

end.

THAM KHẢO

Thuật toán:

B1. Nhập ba số dương a,b,c

B2. Nếu a+b>c và b+c>a và c+a>b thì in ra màn hình a,b,c là ba cạnh của tam giác. Ngược lại in ra a,b,c không là ba cạnh của tam giác.

B3. Kết thúc.

Chương trình:

var a,b,c: real;

begin

writeln('Nhap ba canh lan luot: '); read(a,b,c);

if (a<0) or (b<0) or (c<0) then

repeat

writeln('Khong hop le. Nhap lai ba canh lan luot: '); read(a,b,c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (b+c>a) and (c+a>b) then writeln('Ba so nay la do dai ba canh tam giac') else writeln('Ba so nay khong la ba canh cua tam giac');

end.

điều kiện là vậy à bạn ^^?

Tham khảo

Đề bài: Ba số dương a, b c là độ dài ba cạnh của một tam giác khi và chỉ khi a+b>c, b+c>a, a+c>b

Em hãy thực hiện ác yêu cầu sau:

c) Mô tả thuật toán để giả quyết bài toán

Tham khảo

c. Thuật toán (2đ)

Bước 1: Nhập ba số dương a, b và c

Bước 2 : Nếu a + b > c và b + c > a và c + a > b thì thông báo ba số a, b và c tạo thành 3 cạnh của tam giác ngược lại thông báo ba số a, b và c không tạo thành ba cạnh của tam giác.

Bước 3: Kết thúc thuật toán

a) ((a+b)>c) and ((b+c)>a) and ((a+c)>b)

b) (x<a1) or (x>a2)

c) (diem>=6) and (diem <8); 

(a*a<10) or (a mod 3=0)

Em cám ơn ạ

Kiểu này là thi òi:)

Mik thi như này nhìu nên bít:>

a: 

Input: a=20

Output: a*a

bạn tham khảo 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

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

writeln(t);

readln;

end.

Mk cảm ơn bạn