Giúp em 2 bài pascal gấp với , mai em ktra rồi .

L

letuan97

[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.

Giúp em với , đề đây :
DChBJ.png
 
Last edited by a moderator:
L

lamdetien36

Bài 1:
Mã:
var
	x, y: real;
begin
	writeln('Nhap X, Y: '); readln(x, y);
	
	if x >= y then writeln('A = ', x * x - y : 0 : 6)
	else writeln('A = 1.5');
	
	readln
end.
Bài 2:
Mã:
var
	S: real;
	i: integer;
begin
	S := 0;
	for i := 1 to 50 do S := S + i / (i + 2);
	
	write('S = ', S : 0 : 10);
	readln
end.
 
Top Bottom