Viết câu lệnh rẽ nhánh tính \(z=\left\{{}\begin{matrix}x-2y\\y\end{matrix}\right.\) Nếu x>y Trong trường hợp con lại P/s Mn giúp mk với ak
Viết câu lệnh rẽ nhánh tính \(z=\left\{{}\begin{matrix}x-2y\\y\end{matrix}\right.\) Nếu x>y Trong trường hợp con lại P/s Mn giúp mk với ak
Số chính phương được định nghĩa là bình phương của một số. Hãy viết chương trình tính tổng các số chính phương có trong một dãy (a1, a2, ..., am, với m là một số nguyên dương trong khoảng từ 1 đến 107 ).
Yêu cầu:
Dữ liệu vào là file: CP.INP
+ Dòng thứ nhất: Ghi số m (m trong khoảng từ 1 đến 107)
+ Dòng thứ hai ghi m phần tử trong dãy.
Dữ liệu ra là file: CP.OUT
+ Ghi tổng các số chính phương có trong dãy
+ Nếu không có số chính phương trong dãy thì ghi số 0.
Ví dụ:
CP.INP | CP.OUT | CP.INP | CP.OUT |
5 2 4 5 7 25 |
29
|
4 2 3 1 7 |
0
|
Lưu bài làm vào file CP.PAS
Mình thử trả lời các bạn xem có đúng ko nha!!!
__________
program CP;
var scs,tong,m,i,z,k:longint;
A:array[1..10000000] of longint;
f:text;
begin
assign(f, 'CP.INP');
reset(f);
readln(f,m);
for i:=1 to m do read(f,A[i]);
close(f);
tong:=0;
scs:=0;
for z:=1 to m do
for k:=1 to A[z] do
if (k*k=A[z]) then
begin
scs:=scs+1;
tong:=tong+A[z];
end;
assign(f, 'CP.OUT');
rewrite(f);
if (scs<>0) then writeln(f, tong) else writeln(f, '0');
close(f);
end.
giup minh giai bai toan nay
lap chuong trinh nhap xau s dem xem trong xau do co bao nhieu so hoan thien. thong bao ket qua ra man hinh
anh em giúp mình bài này với!!
''nhập vào xâu S
a.đếm số k là số kí tự chữ cái tiếng anh n hoa khác nhau trong xâu S''
(VD: xâu S: NGu VaN => k=3 hay xâu S: mOn tin hOc => k=1)
b. liệt kê các kí tư chữ cái tiếng anh in hoa và có cùng số lần xuất hiện trong xâu S
(VD: xâu S: NGu VaN => N xuat hien 2 lan, G xuat hien 1 lan, V xuat hien 1 lan)
cảm ơn các bạn!!
cái này đúng
var S:string ;
j:integer;
n,k:byte;
i:char;
begin
k:=0;
write('nhap xau S');
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if s[j]=i then
n:=n+1;
if n<> 0 then
k:=k+1;
end;
write ('so ki tu chu cai tieng anh in hoa khac nhau trong xau S=',k);
readln
end.
câu b
('đúng ')
var S:string ;
j:integer;
n,k:byte;
i:char;
begin
k:=0;
write('nhap xau S ..');
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if s[j]=i then
n:=n+1;
if n<> 0 then
begin
write(i,' xuat hien',n,' lan');
writeln(' ');
end;
end;
readln
end.
var a:string ;
i,j:integer;
n,k:byte;
begin
k:=0;
write(nhap xau S);
read (S);
for i:= 'A' to 'Z' do
begin
n:=0;
for j:= 1 to length(S) do
if a[j]=i then
n:=n+1;
if n<> 0 then
k:=k+1;
end;
write ('so ki tu chu cai tieng anh in hoa khac nhau trong xau S=',k);
readln
end.
Phần 1) mình làm được rồi, còn phần 2) ở phần xuất ra hình dạng của tam giác mình "bí" rồi! Bạn nào giúp mình với!
Mình cảm ơn trước nhé! <3