Program rost;
var R1,R2,R3,max:integer;
begin
writeln('Введите рост первого человека'); readln(R1);
writeln('Введите рост второго человека'); readln(R2);
writeln('Введите рост третьего человека'); readln(R3);
max:=R1;
if R2>max then
begin
max:=R2;
if R3>max then max:=R3
end
else if R3>max then max:=R3;
writeln('Рост самого высого человека=',max);
end.
Действие объекта - это, что может делать сам объект или что могут делать с данным объектом. Для характеристики объекта совершенно не важно, сам объект выполняет действие или он испытывает воздействие со стороны другого объекта. Дейтсвие, применяемое к объекту, приравнивается к действию, выполняемому объектом.
Что бы описать дейтсвие объекта, мы должны ответить на вопрос "Что он может делать?"
Var
x:integer;
begin
writeln('Введите числo:');
readln(x);
if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then
writeln('В чсило входит цифра: ',x mod 10);
x:=x div 10;
if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then
writeln('В чсило входит цифра: ',x mod 10);
x:=x div 10;
if (x=3)or(x=5)or(x=8) then
writeln('В чсило входит цифра: ',x mod 10);
end.
1. Caps Lock
2. Tab и 2 стрелочки вправо и влево
3. ....
4. Главная Ввод - enter
5. вставка СTRL+V cтереть все СTRL+A+delete
6,,,,,