# https://pastebin.com/V2MMpJeN
#
# A.
def function(digit): return str(digit).endswith('0') or str(digit).endswith("1")
print(f"A. function(1230) returns {function(1230)}")
# B.
def function(digit): return digit >= 0 and digit <= 2**8
print(f"B. function(751) returns {function(751)}")
# C.
def function(digit):
if digit < 2: return False
if digit == 2: return True
i=2
lim=int(digit**(1/2))
for n in range(i, lim + 1):
if digit % n == 0: return False
# конец двойной табуляции
return True
# конец табуляции
print(f"C. function(17) returns {function(17)}")
n=int(input("<-- enter digit: "))
print(f"C. function({n}) returns {function(n)}")
print("Число", n, "простое" if function(n) else "составное")
Program CountA;
Uses Crt;
var a,n,x,i:integer;
begin
clrscr; // очищаем экран
write('Введите число n:');
readln(n); // ввод данных
write('Введите цифру а: ');
readln(a); // ввод данных
x:=1; i:=0; i-счётчик цифр а
while (n<>0) do // Пока n не стало равным нулю
begin
x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа
if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1
n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу
end.
Не знаю, правильно или нет♀️
a: array [1..10] of byte;
i, k, n, t, x, max: byte;
//процедура вывода массива
procedure WriteA();
var i : byte;
begin for i := 1 to 10 do begin
write(a[i], chr(32));
end;
writeln();
end;
//основная процедура
begin
Randomize;
for i := 1 to 10 do begin
a[i] := random(100);
end;
WriteA();
writeln('');
n := 10;
while n > 1 do begin
for i := n downto 1 do begin
if a[i] > max then begin max := a[i]; x := i end;
end;
t := a[n];
a[n] := max;
a[x] := t;
dec(n);
max := 0;
WriteA();
end;
writeln('');
WriteA();
end.
- Pascal ABC.NET, массив из 10 случайных чисел до 100 типа byte
- Результат работы программы следующий:
43 77 72 39 60 99 44 65 72 58
43 77 72 39 60 58 44 65 72 99
43 72 72 39 60 58 44 65 77 99
43 72 65 39 60 58 44 72 77 99
43 44 65 39 60 58 72 72 77 99
43 44 58 39 60 65 72 72 77 99
43 44 58 39 60 65 72 72 77 99
43 44 39 58 60 65 72 72 77 99
43 39 44 58 60 65 72 72 77 99
39 43 44 58 60 65 72 72 77 99
39 43 44 58 60 65 72 72 77 99