var
n, d, min: integer;
begin
read(n);
n := abs(n); // Если введено отрицательное
min := 10;
while n > 0 do
begin
d := n mod 10;
n := n div 10;
if d < min then
min := d;
end;
write(min);
end.
// - комментарии, можешь не писать, это пояснение для тебя
var z,a,b,c,d,e,f: integer;
begin
Write('Введите пятизначное число'); read(z);
a:=a div 10000; // число десятков тысяч
b:=a mod 10000 div 1000; // число тысяч
c:=a mod 1000 div 100; // число сотен
d:=a mod 100 div 10; // число десятков
e:=a mod 10; // число единиц
f:=a+b+c+d+e; // сумма цифр
Writeln('Цифры: ', a,b,c,d,e);
Write('Сумма цифр: ',f);
end.
1) 1 Кбайт, 1000 байтов, 1 байт, 1024 бита, 1 бит
2) 10 битов, 20 битов, 2 байта, 1010 байтов, 1Кбайт
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (H, W, D) := ReadInteger3;
Println((H div D) * (W div D))
end.
<h2>40 80 40</h2><h2>2 </h2>
С чем помоч? картинка не грузиться копец(