Pм (периметр в метрах) = 2(a+b);
Pсм = Рм*100;
N (кол-во досок) = Рсм/10см.
Алгоритм не знаю в каком виде писать, так что делай сам(а).
var
a,b:integer;
begin
readln(a,b);
write('Нужно ',2*(a+b)*100/10,' досок')
end.
Ответ:
Объяснение:
var n:integer;
begin write('введите n - '); readln(n);
if n <> 0 then
write(n * (-1))
else write('знак не может быть изменен');
end.
var
m,v,s,a,d,mm: real;
begin
writeln ('задай количество миль');
v:=m*7;
writeln (m,'миль=',v,'верст');
s:=v*500;
writeln (m,'миль=',s,'саженей');
a:=s*3;
writeln (m,'миль=',a,'аршинов');
d:=a*28;
writeln (m,'миль=',d,'дюймов');
mm:=d*25.4;
writeln (m,'миль=',mm,'миллиметров');
end.
Необходимые: системный блок, монитор и устройства ввода (мышь и клавиатура), а все остальное - это дополнительные