Нарисуйте ориентированный граф ( блок - схему )проверки учителем папки тетради.в систему команд входит: - id155675420210922 от andreevaa995 22.09.2021 02:34

Question

Информатика: Нарисуйте ориентированный граф ( блок - схему )проверки учителем папки тетради.в систему команд входит: проверить работу; взять тетрадь из папки; выставить оценку; выяснить,остались ли еще не не проверенные тетради. содержит ли полученный граф цикл! ?

andreevaa995 · Accepted Answer

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
var (a,k):=ReadInteger2('Укажите количество рабочих и служащих:');
Writeln('Заработок работника равен ',624750/(a+k))
end.

Пример
Укажите количество рабочих и служащих: 15 6
Заработок работника равен 29750

№2

begin
var y:=ReadReal('Укажите скорость ходьбы, км/ч:');
var x:=ReadReal('Мальчик пробежал, км: ');
Writeln('Затрачено времени на бег, ч: ',x/(3*y):0:2)
end.

Пример
Укажите скорость ходьбы, км/ч: 5.2
Мальчик пробежал, км: 12
Затрачено времени на бег, ч: 0.77

MOGZ ответил