Question

Viết chương trình nhập N (N

Answer 1

Giúp mình với m.n ơi

Answer 2

Nhập rồi làm gì nữa bạn? Bạn ghi rõ đề đi

Answer 3

Viết chương trình nhập N(N<150) là số nguyên tính và đưa ra tổng các số chia hết cho 3 ạ

Answer 4

uses crt;

var n,i,t:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n<150;

t:=0;

for i:=1 to n do 

  if (i mod 3=0) then t:=t+i;

writeln(t);

readln;

end.