//Pascal ABC.NET v3.0 сборка 1111
var b:integer;
begin
readln(b);
b:=8*b;
writeln(b);
<span>end.
Пример ввода:
5
Пример вывода:
40</span>
На единицу больше, чем максимальная из цифр в записи чисел. В данном случае максимальная цифра 3, следовательно, достаточно использовать систему счисления с основанием 4.
program raf105;
var s,k,a,sr:real;
begin
s:= 0;
k:= 0;
a:= 100;
repeat
s:= s+a/2;
k:= k+1;
a:= a+1;
until a>300;
sr:= s-k;
writeln(sr);
end.
<em><u>Язык PascalABC</u></em>