1 дерево вершина + ветка + ствол
2 дерево вершина + две ветки
3 дерево ветка + ствол
Program plov ;
var day : integer ;
var km , sum : real ;
begin
day := 1 ;
km := 3 ;
sum := km ;
while ( sum <= 30 ) do begin
day := day + 1 ;
km := km * 1.1 ;
sum := sum + km ;
end ;
writeln ( 'day=' , day ) ;
<span>end.</span>
Может видовое понятие для родового понятия "цифра"?
Родовое : цифра
Видовое : один, два, три, четыре, пять, шесть, семь, восемь, девять. (дальше нельзя)
Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.
Система управления базами данных
<span>Это может быть Access или SQL Server</span>