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

#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:

Tin học

Giúp mình đi mờ Bài 1:Tìm số nguyên N biết (0

05/08/2021

By Mackenzie

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 (0Trả lờ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.

Trả lời

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