4) мышь , клавиатура, монитор
5) мышь , планшет, монитор, клавиатура
6)русские буквы, арабские, римские цифры, + - = ,
1. Иерархия
2. Вершина
3. Взвешенный
4. Дерево
5. Карта
6. Схема
7. Граф
8. Семантическая-сеть
9. Дуга
10. Ребро
Var a: boolean;
<span> b: integer;
</span>
begin
a:= true;
if (a) then
b:= 4;
else
b:= -4;
writeln(b);
end.
uses crt;
var
x, y, A1, A2, B1, B2, C1, C2:real;
begin
clrscr;
writeln('enter A1:');
writeln('enter A2:');
writeln('enter B1:');
writeln('enter B2:');
writeln('enter C1:');
writeln('enter C2:');
read(A1,A2,B1,B2,C1,C2);
if (A2 * B1 - A1 * B2) = 0 then
writeln('Программа не имеет решений')
else
begin
x:= (B1*C2-B2*C1) / (A2*B1-A1*B2);
y:= (A2 * C1 - A1 * C2) / (A2 * B1 - A1 * B2);
end;
writeln('x=', x:10:2);
writeln('y=', y:10:2);
end.
Begin
for i: byte := 1 to 19 do ;
end.
PascalABC.NET