Question

Задача в pascal Двое рабочих заработали вместе 900 рублей. Один работал 2 недели, а другой 4 недели. Сколько денег заработал каждый? Надо написать программу в pascal

Answer 1

Var w:real;
begin
w:=900/(2+4);
writeln('Первый рабочий заработал ',w*2,' руб.');
writeln('Второй рабочий заработал ',w*4,' руб.');
end.

Результат:
Первый рабочий заработал 300 руб.
Второй рабочий заработал 600 руб.