Var a, b, c, d:integer;
begin
Read(a);
b:=a mod 10;
c:=a mod 100;
d:=c div 10;
WriteLn(b*d);
end.
var
s: string;
i: integer;
begin
Write('s = '); Readln(s);
for i := 1 to Length(s) do
if s[i] = 'а' then s[i] := 'б';
Write(s);
Readln
end.
Ответ: 3
Из таблицы:
1) компьютер E соединён только с одним компьютером => рисунки 1 и 2 не подходят
2) компьютер E соединён только с одним компьютером и этот компьютер B => рисунок 4 не подходит
3) проверяем остальные соединения => рисунок 3 точно нужный
Клаустрафобия-боязнь тесноты
Audi; BMW; Volkswagen; Datsun; KIA