Bài 17: Chương trình con và phân loại

Program HOC24;

var d,i,k: integer;

a: array[1..1000] of integer;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap K: '); readln(k);

for i:=1 to k do

begin

write('A[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to k do if nt(a[i]) then d:=d+1;

write('Co ',d,' so nguyen to trong mang A');

readln

end.

# 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

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.

A

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.