Var
A : array of real;
i, N, num : integer;
begin
write('Количество чисел: ');
readln(N);
SetLength(A, N);
for i := 0 to N - 1 do
begin
write('A[', i + 1, '] = ');
readln(A[i]);
end;
num := 0;
for i := 0 to N - 1 do
if Sqr(A[i]) < 10 then
Inc(num);
writeln('Таких чисел: ', num);
end.
n = int(input('Введите число: '))
sum = 0
while n != 0:
a = n % 10
if a == 5:
sum += a
n //= 10
print('Сумма пятёрок:',sum)
//PascalABC.Net 3.1.0.1200
var
c: char;
begin
readln(c);
if c in ['0'..'9'] then
writeln(ord(c))
else
writeln(chr(ord(c) + 1), chr(ord(c) + 2));
if c in ['A'..'Z'] then
writeln(LowCase(c));
end.
32*84*8=21504 бит=2,625 Кб
640:2.625=236странц
вроде все.
<span>Слова среднего рода, не склоняютьс, имеют единственное счисление.</span>