===== PascalABC.NET =====
begin
Writeln('Плотность равна ',
ReadReal('Задайте массу, кг:') /
ReadReal('Задайте объем, м^3:'):0:1, ' кг/м^3')
end.
Значения плотностей составят:
а) 8900 кг/м³
б) 7100 кг/м³
(кумир)
Использовать Робот
алг поле
нач
вниз
закрасить
вниз
закрасить
вниз
вправо
закрасить
вправо
закрасить
вправо
вверх
закрасить
вверх
закрасить
вверх
влево
закрасить
влево
закрасить
влево
кон
Var n,m:integer;
begin
write('n = '); readln(n);
m:=(n div 100 * 10) + n mod 10;
writeln('m = ',m);
end.
Пример:
n = 672
m = 62
Так как действия по изготовлению ручек должны выполняться последовательно, то общее время вычисляется так: 20+20+10*20 = 240 мин.
Можно это показать схематично:
- - - - - - - - - - действия Васи
- - - - - - - - - - действия Пети
- - - - - - - - - - действия Маши