Viết Chương Trình Pascal Tính Tổng Các Số Lẻ Từ 1 đến N

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

nguyenngan0969538755
Chưa có nhóm

Trả lời
2
Điểm
125
Cảm ơn
0

Tin Học
Lớp 8
30 điểm
nguyenngan0969538755 - 08:50:19 21/03/2021

_ viết chương trình pascal tính tổng các số chẵn từ 1 tới n (n là số nguyên được nhập từ bàn phím) _ viết chương trình pascal tính tổng các số lẻ từ 1 đến n (n là số nguyên được nhập từ bàn phím)

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

TinhocPascal
Chưa có nhóm

Trả lời
26
Điểm
298
Cảm ơn
11

TinhocPascal

21/03/2021

uses crt;

var n,i: integer;

s:longint;

begin

clrscr;

write( ' nhap n= '); readln(n);

if (n div 2)=0 then so hop le else so khong hop le and end;

s:=0;

for i:=1 to n do s:=s+i;

writeln ( ' tong cua ', n , ' so chan chia chia het cho 2 la s= ' , s);

readln

end.

cau 2

uses crt;

var n,i: integer;

s:longint;

begin

clrscr;

write( ' nhap n= '); readln(n);

if (n mod 2)<>0 then so hop le else so khong hop le and end;

s:=0;

for i:=1 to n do s:=s+i;

writeln ( ' tong cua ', n , ' so le khong chia chia het cho 2 la s= ' , s);

readln

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

Cảm ơn 1
Báo vi phạm

- muaxuancungdan
- programmer
- Trả lời
  1029
- Điểm
  6062
- Cảm ơn
  1060
dân chuyên tin đây nè, vô nhóm mình ko, nhóm chuyên tin
- TinhocPascal
- Chưa có nhóm
- Trả lời
  26
- Điểm
  298
- Cảm ơn
  11
vô
- muaxuancungdan
- programmer
- Trả lời
  1029
- Điểm
  6062
- Cảm ơn
  1060
chào mừng bn :))

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

tuongtaylor
Hội code dạo

Trả lời
2376
Điểm
46183
Cảm ơn
1806

tuongtaylor

22/03/2021

Câu 1:

uses crt;var i,n,s:longint; beginclrscr; write('n= ');readln(n); s:=0; for i:=1 to n do if i mod 2=0 then inc(S,i); writeln('Tong cac so chan tu 1 den n: ',s);readlnend.

Câu 2:

uses crt;var i,n,s:longint; beginclrscr; write('n= ');readln(n); s:=0; for i:=1 to n do if i mod 2=1 then inc(S,i); writeln('Tong cac so le tu 1 den n: ',s);readlnend.

Hãy giúp mọi người biết câu trả lời này thế nào?