А) Объект: человек;
Величина: цвет волос;
Значение: ражий.
б) Объект: арбуз;
Величина: вес;
Значение: семь килограмм.
в) Объект: чашка;
Величина: материал;
Значение: фарфор.
г) Объект: монитор;
Величина: диагональ;
Значение: семнадцать дюймов.
Ответ:
===== PascalABC.NET =====
var
a,b : integer;
begin
writeln('введите a,b');
readln(a,b);
if a>b then a:=a-b
else b:=b-a;
writeln('Максимальное = ',max(a,b));
end.
Объяснение:
Var
hay:longint; { количество стогов сена }
eaten:longint; { количество съеденных стогов }
procedure Eat(var n:longint);
{ съесть 4 стога }
begin n:=n-4; eaten:=eaten+4 end;
procedure Sheep(n:longint);
{ овечка, которой передано n стогов сена }
begin
if n>=4 then begin
if (n mod 5)=0 then begin
n:=n div 5;
Sheep(n);
Sheep(3*n)
end
else begin
Eat(n);
Sheep(n)
end
end
end;
begin
Readln(hay);
eaten:=0;
Sheep(hay);
Writeln(eaten)
end.
<em><u>Тестовое решение:</u></em>
29
8
Ноль,девять,векнор,Вить,Ева,Лент,Дина,модуля, ноль.
begin
k1:=0
k2:=0
writeln (' Введите три числа');
if x<span><0 then k1:=k1+1;</span>
<span>if x<span><0 then k2:=k2+1;(ЕЩЕ " ЧИСЛА)</span></span>
<span><span>intil x=0;</span></span>
<span><span>writeln ('k1=',k1,'',k2=',k2)</span></span>
<span><span>end</span></span>
<span><span>я думаю наверно так))))))))))))))))</span></span>