Program ff;
var
summ, count_terms:integer;
begin
summ:=0;
count_terms:=0;
while summ<>324 do
begin
summ:=summ+4;
count_terms:=count_terms+1;
end;
Writeln('Кол-во слагаемых: ',count_terms);
readln();
end.
Связь позволяет моделировать отношения между объектами предметной области. Наименование связи должно быть уникально во всей модели.
всего 4 типа связей
1. один к одному
2. один ко многим
3. многие к одному
4. многие ко многим
Program name; -название программы
uses crt; - подключение модулей
var a:byte; -описание переменных
begin -операторные скобки
-тело программы
end. -операторные скобки
Хех, тоже Апробация...ответом будет 101