Question

Составьте блок-схему и программу следующей задачи.
Бригада из семи рабочих заработала М р.Деньги были поделены поровну. Найдите заработок каждого рабочего.

Answer 1

Var n,M:integer; zar:real;
begin
write('ведите заработок бригады');
Read(M);
n:=7;
zar:=M/n;
write(zar);end.