1. Viết Chương Trình Pascal Tính Tổng Các Số Chia Hết Cho 5 Từ 1 đế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

anhnguyen272
Chưa có nhóm

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

Tin Học
Lớp 11
30 điểm
anhnguyen272 - 20:25:13 15/12/2021

1. Viết chương trình Pascal tính tổng các số chia hết cho 5 từ 1 đến 100. Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số ( N< 100 ) . Có bao nhiêu số lẻ trong mảng A .

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

shamsiel
Chưa có nhóm

Trả lời
10754
Điểm
114829
Cảm ơn
5909

shamsiel

Câu trả lời hay nhất!
15/12/2021

Câu 1 :

uses crt;

var i, s : longint;

begin

clrscr;

s := 0;

for i := 1 to 100 do

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

writeln('tong = ', s);

if s mod 2 = 0 then

writeln('tong la so chan')

else writeln('tong la so le');

readln

end.

Bài 2 :

uses crt;

var a : array[1..100] of integer;

i, n, dem : integer;

begin

clrscr;

dem := 0;

write('nhap so phan tu trong mang :');readln(n);

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if a[i] mod 2 <> 0 then dem := dem + 1;

end;

writeln('co ', dem ,' phan tu le');

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

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

nhutruong57
Hội Sợ Ma

Trả lời
102
Điểm
2737
Cảm ơn
75

nhutruong57

15/12/2021

Program BTH;uses crt;var a:array[1..100000] of longint;n,i,s:longint;begin clrscr; write('Nhap n: ');readln(n); For i:=1 to n do begin write('a[',i,']: ');readln(a[i]); If (a[i] mod 2=0) and (a[i] mod 5=0) then s:=s+a[i]; end; writeln('Tong day so tren la: ',s); readln;end.

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

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar2 voteGửiHủy