Giúp mình đi mờ Bài 1:Tìm số nguyên N biết (0<N<=10^18) Bài 2: Tính tổng các số chia hết cho 3 từ 1 đến N
2 câu trả lời
#NO COPY!
#SỬ LÝ ĐƯỢC SỐ LỚN!
uses crt;
var i,t,n:qword;
begin
clrscr;
write('n=');readln(n);
repeat i:=i+1; if i mod 3=0 then t:=t+i; until i=n;
writeln(t);
readln
end.
//////////////////////////
Test:
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.
Câu hỏi trong lớp
Xem thêm
