Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Ally

Viết chương trình nhập vào một dãy số, chương trình chỉ dừng lại khi số nhập vào là số 0. In ra màn hình các kết quả sau: - In ra tổng của các số chẵn đã nhập vào? - In ra tích của các số lẻ đã nhập vào?

Giúp tui với mn ơi

Nguyễn Lê Phước Thịnh
22 tháng 8 2021 lúc 0:22

uses crt;

var n,t1:integer;

s:real;

begin

clrscr;

t1:=0;

s:=1;

repeat

readln\(\left(n\right)\);

if n mod 2=0 then t1:=t1+n

else s:=s*n;

until n=0;

writeln\(\left(t1\right)\);

writeln\(\left(s:4:2\right)\);

readln;

end.


Các câu hỏi tương tự
Hưng Quốc
Xem chi tiết
Quỳnh
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Hắc Phong
Xem chi tiết
Nguyễn Công Vinh
Xem chi tiết
Nguyễn Thị Thu Thúy
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
Anhthuwliz
Xem chi tiết
Nhân lê
Xem chi tiết