Viết Chương Trình Pascal Tính Tổng Các Số Chia Hết Cho 3 Từ 1 đến ...

Tất cả Toán học Vật Lý Hóa học Văn học Lịch sử Địa lý Sinh học Giáo dục công dân Tin học Tiếng anh Công nghệ Khoa học Tự nhiên Lịch sử và Địa lý Quyền Huỳnh Hỏi từ APP VIETJACK đã hỏi trong Lớp 11 Tin học · 19:41 26/12/2021 Theo dõi Báo cáo Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? Giúp e vs ạ Trả Lời (+5 điểm) Hỏi câu khác Hỏi chi tiết ...Xem thêm

Quảng cáo

2 câu trả lời 3392

Hoàng Linh 3 năm trước

uses crt;

var x,i,,dem:integer;

begin

clrscr;

dem:=0;

for i:=1 to 100 do 

begin

if (i mod 3=0 )then dem:= dem + i;

end;

begin

if (dem mod 2=0 )then writeln( 'tong so chia het cho 3  la so chan' )

else writeln( 'tong so chia het cho 3  la so le' ) ;

end;

readln;

end.

0 bình luận Đăng nhập để hỏi chi tiết Thăng Nghiện Trà Táo 3 năm trước

cũng dễ 

Program tinh_tong;var i,E :integer;beginE:=0;for i:=1 to 100 do if i mod 3=0 then E:=E+i;Writeln('tong cac so chia het cho 3 tu 1 den 100');Write( E );readlnend.

0 bình luận Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn muốn hỏi bài tập?

Đặt câu hỏi

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

• Hàm cho giá trị bằng bình phương của x là :

  A. Sqrt(x);

  B. Sqr(x);            

  C. Abs(x);

  D. Exp(x);