Câu 1 : Viết chương trình tính tích các số từ 1 đến n. Với n là số tự nhiên nhập từ bàn phím. Câu 2 : Viết chương trình tính tổng các số lẻ từ 1 đến n. Với n là số tự nhiên nhập từ bàn phím.

Bảo Ngọc-30-8.15 Hỏi từ APP VIETJACK

· 19:05 08/03/2022

Câu 1 : Viết chương trình tính tích các số từ 1 đến n. Với n là số tự nhiên nhập từ bàn phím.
Câu 2 : Viết chương trình tính tổng các số lẻ từ 1 đến n. Với n là số tự nhiên nhập từ bàn phím.

Trả Lời (+5 điểm)

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

1 câu trả lời 6964

Bình Nguyễn

4 năm trước

câu 1

Program BTH;
uses crt;
var n,i:longint;
s:word;
begin
clrscr;
Repeat
write(‘Nhap n: ‘);readln(n);
If n mod 2=1 then
writeln(‘So nhap khong hop le moi nhap lai’);
until n>0;
s:=1;
For i:=1 to n do
s:=s*i;
write(‘Tong day so tren la: ‘,s);
readln;
end.

câu 2

program bai2;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do

if i mod 2=0 then s:=s+i;

write('s= ',s);

readln

end.

0 bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?

1 câu trả lời 6964

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 8