tác dụng của sheet1 là j
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i] mod 10=0 then write(a[i]:4);
readln;
end.
program bt1;
uses crt;
var t,n,i,sl,j,dem: integer;
begin
clrscr;
write('nhap n voi n>2:'); readln(n); writeln('cac so nguyen to tu 2 den n la:');
for i:=2 to n do
begin
dem:=0;
for j:=1 to i do
if i mod j = 0 then dem:=dem+1;
if dem=2 then
begin
write(i,' '); sl:=sl+1; t:=t+i;
end;
end;writeln;
writeln('so luong so nguyen to tu 2 den n:',sl);
writeln('tong so nguyen to tu 2 den n:',t);
if frac(sqrt(t))=0 then writeln('tong cac so nguyen do la so chinh phuong')
else writeln('tong cac so nguyen to do khong la so chinh phuong');
readln;
end.