uses crt;
var a:array[1..10]of real;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
readln;
end.
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
Viết chương trình pascal tìm các số hoàn hảo bé hơn n.
Giúp mình với ạ, sắp kiểm tra rồi :(((
Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên dương n ( Với n được nhập).
Yêu cầu nhập lại nếu n<=0
ai trả lời giúp mình được ko cảm ơn
Viết chương trình Pascal để nhập vào một số tự nhiên n. In lên màn hình tổng các số chẵn từ 1 đến n. Mn giúp mình với!
Viết chương trình nhập vào số n với N nhập từ bàn phím. Kiểm tra số N là số dương hay âm
Viết chương trình rút gọn phân số a/b (a, b nhập từ bàn phím).
Dùng for...do nha, mn giúp mình với!!!
Mai mình thi rồi!!!
Viết chương trình tính tổng theo công thức:
s=1^2-2+3^2-4+...+(n-1)^2-n
Với n là số nguyên dương nhập từ bàn phím.
Giúp mình giải gấp. Cảm ơn!
Viết chương trình tính tích n số tự nhiên đầu tiên khác 0 ( n được nhập từ bàn phím). Mọi người giải nhanh câu này giúo mình với , chú ý n khác 0 nhé
viết chương trình in ra các số lẻ trong 1000 số tự nhiên daaffu tiên và tính tổng các số lẻ đó
mọi người giúp mình vs ạ , mai mình ktra r , thankkkk
