Pм (периметр в метрах) = 2(a+b);
Pсм = Рм*100;
N (кол-во досок) = Рсм/10см.
Алгоритм не знаю в каком виде писать, так что делай сам(а).
var
a,b:integer;
begin
readln(a,b);
write('Нужно ',2*(a+b)*100/10,' досок')
end.
смотри описание блок схемы на картинке
Ответ:задание 1: FAT 32 NTFS EXT3
Задание 2: D:/школа
Объяснение:
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:array of integer := (0,12,3,-5,-6,4,9,0,8);
var sum:= 0;
for var i := 3 to 7 do
if a[i]>5 then
sum:=sum+a[i];
writeln (sum);
end.
Ответ: 9