1. <span>1) Деревья
2. </span><span>3)Иерархические структуры (деревья)
3. </span><span>2)Файл
4. </span><span>3)Ячейка
5. </span><span>4)Многоуровневая (иерархическая)
6. </span><span>3)Алгоритм
7. </span><span>4)Массовость
8. </span>2)Текстовая <span>4)На языке программирования 5)Графическая
9. </span><span>4)Блок-схема
10. </span><span>Блок-схема
11. </span>1)язык программирования <span>4)транслятор 5)библиотеку программ
12 синтаксис
13 </span><span>3)Семантика
14 равно
15 program
16 -
17 </span><span>2)While<условие выполнения>Do <тело цикла>
18 ;(точка с запятой)</span>
<em>VAR</em>
<em> s: String;</em>
<em> i: LongInt;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em />
<em> for i := 1 to Length(s) do </em>
<em> if not((Ord(s[i]) > 47)and(Ord(s[i]) < 58)) then begin</em>
<em> Write(s,' - не является целым число'); Exit; </em>
<em> end;</em>
<em> Write(s,' - целое число'); </em>
<em>END.</em>
Var a,b,c,d,min,k:integer;
begin
writeln('a, b, c');
readln(a,b,c);
if 4*a<2*b
then begin min:=4*a; d:=a; end
else begin min:=2*b; d:=b div 2; end;
if c<min then begin min:=c; d:=c div 4; end;
k:=d+2*d+4*d;
writeln(k);
end.
Пример:
a, b, c
2 5 7
7