Những câu hỏi liên quan
Bình Minh
Xem chi tiết
Lê Gia Huy
Xem chi tiết
nguyentienlam
Xem chi tiết
nguyentienlam
4 tháng 4 2023 lúc 15:21

cứu m vs

 

Bình luận (0)
Dương Mạnh Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2022 lúc 10:44

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem:=0;

for i:=1 to n do 

  if (trunc(sqrt(a[i]))=sqrt(a[i]) then dem:=dem+1;

writeln(dem);

readln;

end.

Bình luận (0)
Phạm Thị Kim Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 4 2022 lúc 17:09

uses crt;

var a:array[1..100]of integer;

i,n,t,kt,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do 

if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

for i:=1 to n do 

  if trunc(sqrt(a[i]))=sqrt(a[i]) then write(a[i]:4);

writeln;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.

Bình luận (0)
Dương Mạnh Hoàng
Xem chi tiết
Leoumax
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 2 2023 lúc 20:54

Bai 2:

uses crt;

var a:array[1..100]of integer;

i,n,t,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

nn:=a[1];

for i:=1 to n do

if nn>a[i] then nn:=a[i];

write(nn);

readln;

end.

Bình luận (0)
Dương Mạnh Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2022 lúc 10:09

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem:=0;

for i:=1 to n do  

if trunc(sqrt(a[i]))=sqrt(a[i]) then inc(dem);

writeln(dem);

readln;

end.

Bình luận (0)
Nguyễn Trường An
Xem chi tiết
lê thị bích ngọc
19 tháng 11 2021 lúc 16:36

bạn hỏi khó thế, đây mới là phần cho lớp 8 thôi mà

Bình luận (0)
Lê Thanh Tùng
Xem chi tiết
hoang
11 tháng 1 2023 lúc 22:37

const
fi='sochinhphuong.inp'
fo='sochinhphuong.out'
var f,g:text;n:longint;
function scp(n:longint):boolean;
begin
        if (sqr(trunc(sqrt(n)))=n) then exit (true);
        exit (false);
end;
begin
        assign(f,fi);reset(f);
        assign(g,fo);rewrite(g);
        readln(f,n);
        if scp(n) then writeln(g,'yes') else
        writeln(g,'no');
        close(f);close(g);
end.

Bình luận (0)