Нет. есть ситуации, в которых важно одно свлйство объекта и не важно другое. например, вы дрессируете собаку. вам важно что она умеет делать, но абсолютно не важен материал из которого она сделана
Program P11;
var P, x : real; {описываем переменные Р и х как вещественные числа}
b : integer; {переменную b как целое число}
Begin
Write ('Введите значение переменной Х:');
Readln(x); {Получаем значение переменной Х}
P:=0; {Обнуляем значение переменной Р}
For B:=1 to7 do {Переменная В изменяется от 1 до 7, для этого используем цикл с параметром}
P:=P+(sqr(x)+2*b); {Значение переменной P увеличиваеться с каждым проходом на X^2+2b, т.е. считается сумма Х^2+2b для всех b от 1 до 7}
Writeln('P=', P:3,2); {Выводим значение Р}
End.
Program Pr1;
uses crt;
var mas:array[byte] of integer;
fl1,fl2:text;
stroka:string;
b,v,c,max,i:integer;
Begin
clrscr;
assign(fl1,'E.in');
assign(fl2,'E.out');
reset(fl1);
readln(fl1,stroka);
close(fl1);
for i:=1 to length(stroka) do val(stroka[i],mas[i],b);
b:=length(stroka);
max:=1;
v:=0;
for i:=1 to b do if mas[i]>v then if mas[i]>max then max:=mas[i]
else v:=mas[i];
c:=max*v;
rewrite(fl2);
writeln(fl2,c);
close(fl2);
end.
<span>диван тесто стол кресло, тесто конечно </span>
Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.