Var t,n,m,s:integer;
begin
write('t (1,2,3) = ');
readln(t);
writeln('n, m:');
readln(n,m);
case t of
1: begin s:=25*n+70*m; writeln('Утренняя выручка = ',s); end;
2: begin s:=50*n+100*m; writeln('Дневная выручка = ',s); end;
3: begin s:=70*n+100*m; writeln('Вечерняя выручка = ',s); end;
else writeln('Ошибка ввода');
end;
end.
Пример:
t (1,2,3) = 1
n, m:
10 5
Утренняя выручка = 600
Я не знаю прости я бы помог но не могу
{ Пример программы для процедуры FloodFill }
<span>Uses Graph,Crt; </span>
<span>Var Gd, Gm : Integer; </span>
<span>Begin </span>
<span>Gd:=Detect; </span>
<span>InitGraph(Gd, Gm, ''); </span>
<span>If GraphResult <> grOk Then Halt(1); </span>
<span>SetColor(GetMaxColor); </span>
<span>Circle(50, 50, 20); </span>
<span>FloodFill(50, 50, GetMaxColor); </span>
<span>Readkey; </span>
<span>CloseGraph; </span>
<span>End. </span>
<span>Procedure FloodFill(X, Y : Integer; Border : Word); </span>
<span>Закрашивает замкнутую область, используя текущие стиль и цвет закраски. </span>
<span>Procedure SetFillStyle(Pattern : Word; Color : Word); </span>
<span>Устанавливает цвет и стиль закраски. </span>
<span>Procedure SetColor(Color : Word) </span>
<span>устанавливает текущий цвет, </span>
D1)прямая горизонтальная линия
2) любой из этих рисунков
Если ты читала то вроде как Остапа
Сори я просто не помню давно читал