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 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 Hỏi chi tiết Trả lời trong APP VIETJACK ...Xem câu hỏi chi tiết

Quảng cáo

2 câu trả lời 3225

Hoàng Linh 2 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 2 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

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);