Giúp mình đi mờ
Bài 1:Tìm số nguyên N biết (0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Giúp mình đi mờ Bài 1:Tìm số nguyên N biết (0Bình luận
bài 2
program tinh_tong;
use crt;
var i, sum,:integer:begin
clrscr;
write(‘nhap N: ‘);readln(n);
SUM := 0; for i:=1 to n do if (I MOD 3=0) then sum:- sum + i;
bài 2
program tinh_tong;
use crt;
var i, sum,:integer:begin
clrscr;
write(‘nhap N: ‘);readln(n);
SUM := 0; for i:=1 to n do if (I MOD 3=0) then sum:- sum + i;
write(‘tong la’,sum);
readln;
end.