viết chương trình nhập vào từ bàn phím số nguyên dương N, tính tổng các giá trị lẽ và chia hết cho 3 trong phạm vi từ 1 đén N, in kết quả ra màn hình (sử dụng cú pháp for…do)

Question

lanngoc · Answer

program vipem;

var n,y,i: longint;
Begin
write(‘Nhap so n: ‘);
readln(n);
for i:=3 to n do if ((i mod 2 = 1) and (i mod 3 = 0)) then y:=y+i;
write(‘Ket qua: ‘,y);
readln;
end.

xin hay nhất

Bình luận

tonhu · Answer

uses crt;
var n,t,i: longint;
Begin
clrscr;
write(‘Nhap so n: ‘);
readln(n);
for i:=3 to n do if ((i mod 2 = 1) and (i mod 3 = 0)) then t:=t+i;
write(‘Ket qua: ‘,t);
readln
end.

viết chương trình nhập vào từ bàn phím số nguyên dương N, tính tổng các giá trị lẽ và chia hết cho 3 trong phạm vi từ 1 đén N, in kết quả ra màn hình

0 bình luận về “viết chương trình nhập vào từ bàn phím số nguyên dương N, tính tổng các giá trị lẽ và chia hết cho 3 trong phạm vi từ 1 đén N, in kết quả ra màn hình”

Viết một bình luận Hủy