Tin học Viết chương trình nhập vào một số nguyên N (0 19/07/2021 By Liliana Viết chương trình nhập vào một số nguyên N (0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình nhập vào một số nguyên N (0Trả lời
Program BT;Var n,i,s,t,d :longint;BeginrepeatWrite (‘Nhap N : ‘);Readln(n);until (n > 0) and (n < 10000);s := 0;d := 0;t := 0;For i := 1 to n doBegins := s + i;If i mod 5 = 0 thenBegind := d + 1;If i mod 3 = 0 then t := t + i;end;end;Writeln (‘a,Tong la : ‘,s);Writeln (‘b,So cac so chia het cho 5 la : ‘,d);Write (‘c,Tong cac so vua chia het cho 5 va 3 la : ‘,t);end. Trả lời