Program YoungFolks;
uses crt;
var
n: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
write('Введите число N '); readln(n);
writeln('Цифра десятков число N равна ', (n div 10) mod 10);
end.
Пояснение:
Вводим число N и дальше всю работу выполняет формула (n div 10) mod 10:
- сначала вычисляется неполное частное от деления числа N на 10 (делим на 10 и берём только целую часть резульата - это тоже самое, что просто отбросить последнюю цифру). Например для числа 1256: 1256 div 10 = 125
- потом находим отстаток от деления предыдущего результата опять на 10 (то есть берём последнюю цифру). Для нашего примера: 125 mod 10 = 5
Цифра 5 и есть цифра десятков исходного числа.
Program Linao;
uses crt;
const n = 20;
var
x:array [1..n] of real;
i,k,j,sum:integer;
max, min,temp: real;
begin
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
begin
write('*');
for j:=1 to n*100000 do j:=j;
end;
writeln;
k:=0;
randomize;
sum:=0;
writeln('негативні елементи: ');
for i:=1 to n do
begin
x[i]:=random(101)-50;
if x[i]<0 then
begin
sum:=sum+i;
writeln(i,'-й елемент, рівний ',x[i]);
k:=1;
end;
end;
if k=0 then
writeln('Немає таких елементів!');
end.
Фактический параметр 'z' - константа и он не может сопоставляться параметру процедуры с, имеющему описатель var.