Nhập Vào 1 xâu f1. Đưa ra xâu f2 các số xhia hết cho 5
Bài 17: Chương trình con và phân loại
Program HOC24;
var f1,f2: string;
i,t: byte;
code: integer;
begin
write('Nhap xau: '); readln(f1);
for i:=1 to length(s1) do
begin
val(s[i],t,code);
if t mod 5=0 then write(t,' ');
end;
readln
end.
Đúng 0
Bình luận (0)
viết chương trình có sử dụng chương trình con và đưa ra bình phương của một số nguyên
Var a,x2:integer;
Function bp(var i:integer);
Var b:integer;
Begin
Write('Nhap so can tinh ');readln(i);
b:=i*i;
Bp:=b;
End;
Begin
x2:=Bp(a);
Write(a,' binh phuong bang ',x2);
Readln;
End.
Đúng 1
Bình luận (0)
1) Cach khai bao nao sau day la hop le
A. Function Ham(x,y : integer):integer;
B. Function Ham(x,y:integer);
C. Function Ham(x,y:real):integer;
D. Function Ham(x,y:real):longint;
viết chương trình nhập vào 2 cạnh của hình chữ nhật. tính chu vi,diện tích hình chữ nhật và thông báo ra màn hình . yêu cầu sử dụng chương trình con tính chu vi,diện tích.
Tham khảo
program hcn;
uses crt;
var d,r,dt:longint;
cv:real;
begin
write('nhap chieu dai va chieu rong cua hcn:');
readln(d,r);
cv:=(d+r)*2;
dt:=d*r;
writeln(' chu vi hcn do la:',cv);
writeln(' dien tich hcn do la:',dt);
readln
end.
Đúng 1
Bình luận (0)
(Ptso.*) Phân tích 1 số tự nhiên thành tổng các số tự nhiên khácnhau nhỏ hơn nó. pascal ạ
Đọc tiếp
(Ptso.*) Phân tích 1 số tự nhiên thành tổng các số tự nhiên khác
nhau nhỏ hơn nó. pascal ạ
Sử dụng công thức con tính lũy thừa Giai thừa 5!= 1 x 2 x 3 x 4 x 5 = 120 3^2 2^3
# Tính lũy thừa
a = 3
n = 2
power = a ** n
print(power) # Kết quả: 9
# Tính giai thừa
n = 5
factorial = 1
for i in range(1, n+1):
factorial *= i
print(factorial) # Kết quả: 120
Đúng 0
Bình luận (0)
Cho mảng A có n phần tử dùng chương trả con thực hiện một số yêu cầu như sau: 1. Viết chương trình nhập mảng A 2. Tính tổng số chẵn, lẻ 3. Tính có bao nhiêu phần tử chia hết cho k.
2. Sử dụng hàm và thủ tục để viết chương trình tính tổng các số chẵn, lẻ trong xâu