program pole; var a, b, c, d, n, kolvo, x, y: real; begin write ('За сколько часов топчет землю Нейромонах Феофан? '); read (a); write ('За сколько часов топчет землю Балалаечник Никодим? '); read (b); write ('За сколько часов топчет землю Косолапый Мишка? '); read (c); write ('За сколько часов топчет землю 1 Добрый Молодец? '); read (d); write ('За сколько часов нужно выкопать землю? '); read (n); x:=1/a+1/b+1/c; kolvo:=(1/n-x)/(1/d); if (kolvo<0) then write ('Группа справится без молодцев.') else begin y:=kolvo; if (((trunc(y*10)) mod 10) <5) then kolvo:=kolvo + 1; write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo)); end; end.
program pole;
var a, b, c, d, n, kolvo, x, y: real;
begin
write ('За сколько часов топчет землю Нейромонах Феофан? ');
read (a);
write ('За сколько часов топчет землю Балалаечник Никодим? ');
read (b);
write ('За сколько часов топчет землю Косолапый Мишка? ');
read (c);
write ('За сколько часов топчет землю 1 Добрый Молодец? ');
read (d);
write ('За сколько часов нужно выкопать землю? ');
read (n);
x:=1/a+1/b+1/c;
kolvo:=(1/n-x)/(1/d);
if (kolvo<0) then write ('Группа справится без молодцев.') else
begin
y:=kolvo;
if (((trunc(y*10)) mod 10) <5) then
kolvo:=kolvo + 1;
write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo));
end;
end.
использовать Чертежник
алг
нач
поднять перо
сместиться в точку (1,0)
опустить перо
сместиться в точку (1,1)
сместиться в точку (2,1)
сместиться в точку (2,0)
сместиться в точку (1,0)
поднять перо
сместиться в точку (2,1)
опустить перо
сместиться в точку (2,2)
сместиться в точку (3,2)
сместиться в точку (3,0)
сместиться в точку (2,0)
поднять перо
сместиться в точку (3,2)
опустить перо
сместиться в точку (3,3)
сместиться в точку (4,3)
сместиться в точку (4,0)
сместиться в точку (3,0)
поднять перо
сместиться в точку (4,2)
опустить перо
сместиться в точку (5,2)
сместиться в точку (5,0)
сместиться в точку (4,0)
поднять перо
сместиться в точку (5,1)
опустить перо
сместиться в точку (6,1)
сместиться в точку (6,0)
сместиться в точку (5,0)
поднять перо
сместиться в точку (6,1)
опустить перо
сместиться в точку (7,1)
сместиться в точку (7,0)
сместиться в точку (6,0)
поднять перо
сместиться в точку (7,1)
опустить перо
сместиться в точку (7,2)
сместиться в точку (8,2)
сместиться в точку (8,0)
сместиться в точку (7,0)
поднять перо
сместиться в точку (8,2)
опустить перо
сместиться в точку (8,3)
сместиться в точку (9,3)
сместиться в точку (9,0)
сместиться в точку (8,0)
поднять перо
сместиться в точку (9,2)
опустить перо
сместиться в точку (10,2)
сместиться в точку (10,0)
сместиться в точку (9,0)
поднять перо
сместиться в точку (10,1)
опустить перо
сместиться в точку (11,1)
сместиться в точку (11,0)
сместиться в точку (10,0)
поднять перо
сместиться в точку (11,1)
опустить перо
сместиться в точку (12,1)
сместиться в точку (12,0)
сместиться в точку (11,0)
поднять перо
сместиться в точку (12,1)
опустить перо
сместиться в точку (12,2)
сместиться в точку (13,2)
сместиться в точку (13,0)
сместиться в точку (12,0)
поднять перо
сместиться в точку (13,2)
опустить перо
сместиться в точку (13,3)
сместиться в точку (14,3)
сместиться в точку (14,0)
сместиться в точку (13,0)
поднять перо
сместиться в точку (14,2)
опустить перо
сместиться в точку (15,2)
сместиться в точку (15,0)
сместиться в точку (14,0)
поднять перо
сместиться в точку (15,1)
опустить перо
сместиться в точку (16,1)
сместиться в точку (16,0)
сместиться в точку (15,0)
кон
Объяснение: