Var
A,N:integer;
Begin
Write('N = ');ReadLn(N);
For A:= 10 to 99 do
if A mod 10 + A div 10 = N then Write(A,' ')
End.
Пример работы программы:
N = 9
18 27 36 45 54 63 72 81 90
Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;<span>
if a < 0 then inc (count);</span>
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
<span>end.
Надеюсь на лучший ответ:)</span>
1. Материальная модель
2. Информационная модель
3. По сферам знаний
4. По форме подачи
5. Материальные и информационные
Ну, во-первых, за тем, чтобы придерживаться сути инкапсуляции: Людям свойственны ошибки. Например, будь у нас прямой доступ к полю, мы бы могли ошибочно изменить значение. При использовании методов, мы, разумеется, 5 раз подумаем, прежде чем взаимодействовать с ним.
Во-вторых, для простоты. Нам не нужно подробно изучать все внутреннее устройство, достаточно начать взаимодействовать с методом, который сделает всю внутреннюю работу за вас.