Var i,n:integer;
s,so:real;
Begin
Write('Nhap so luong so thuc ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
s:=s+so;
End;
Write('Tong la ',s:10:2);
Readln
End.
Viết CT nhập điểm Kiểm tra học kì môn Tin cho N học sinh và in CT với N và điểm kiểm tra nhập từ bàn phím (sd biến mảng)
Giusp mik với ạ, mk đang cần gaapsppppp lamwsmmmm ạ!!!
Viết Ct tính tổng Bình phương các số lẻ chẵn và sắp xếp theo thứ tự chẵn trước lẽ sau trong 1 mảng gồm n phần tử
Giúp mik vs ạ
MIk cảm ơn ạ
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
Ai bít câu trả lời thì cho mình hỏi vs: Viết CT nhập vào 1 số tự nhiên , cho bt số đó có bao nhiêu ước, tính tổng của chúng và các ước của số đó. Ví dụ: ước của 6 là 1 2 3 6, có 4 ước và tổng là 12
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
Câu 1: Viết chương trình Pascal thực hiện các thuật toán sau:
Bước 1: S:= 0 ; n:= 0
Bước 2: Nếu S>10 chuyển tới Bước 4
Bước 3: n:= n+1 , S:= S+n quay lại Bước 2
Bước 4: Thông báo S và kết thúc thuật toán
Câu 2: Viết chương trình thực hiện phép tính sau và lặp lại 5 lần: ( 14 - 6)^2
Câu 3: Lập CT tính tổng các số lẻ. Sử dụng câu lệnh While...do, trong đó n là số tự nhiên được nhập từ bàn phím A = 1+3+5+...+N
Câu 1: viết chương trình nhập vào N số tự nhiên đầu tiên,đếm xem có bao nhiêu số là số chẵn Câu 2: Viết chương trình nhập vào N số tự nhiên tính tổng các số chia hết cho 3 Em cần gấp lắm ạ:(
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.
