Viết ct nhập vào N số nguyên và thực hiện yêu cầu sao
Đếm xem có bao nhiêu số dương
Tính tổng các số dương
In kết quả ra màn hình.
Giúp mình giải với ạ. Mai mình phải nộp cô rồi
Đếm xem có bao nhiêu số dương
Tính tổng các số dương
In kết quả ra màn hình.
Giúp mình giải với ạ. Mai mình phải nộp cô rồi
Quảng cáo
1 câu trả lời 339
Program Hotboy;
Uses crt;
var n,i,S,d:integer
Begin
Clrscr;
S:=0; d:=0;
Write('Nhap so n tu ban phim :');
Readln(n);
For i:=1 to n do
If (i mod 2=0) then inc(d);
S:=S+i;
Write('cac so chan la',d,'tong chan la',S);
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86306
Gửi báo cáo thành công!
