Pм (периметр в метрах) = 2(a+b);
Pсм = Рм*100;
N (кол-во досок) = Рсм/10см.
Алгоритм не знаю в каком виде писать, так что делай сам(а).
var
a,b:integer;
begin
readln(a,b);
write('Нужно ',2*(a+b)*100/10,' досок')
end.
PascalABC.NET 3.4
begin
// Если a и b целые, они также включаются в подсчет
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Swap(a,b); // а - левая границв
Writeln('Целых чисел в интервале: ',Trunc(b)-Trunc(a)+1);
end.
Номер называется "Скан-код"
В Dec будет:
3329
3987
394
а в Bin:
0011 0010 0010 1001
0011 1001 1000 0111
0011 1001 0100