<span>Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.</span>
1)if y<0 then a:=y*y+5 else a:=6*y
2)if x=0 then y:=sin(x)
3)if x>b then k:=7*x div b else
if x=0 then k:=6*b*x else k:=5+x+b
{тут двойное ветвление}
Острое зрение.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1) Дискет;
2) Флеш - карта;
3) USB - флеш - накопитель;
4) CD - RW.
Ответ: 1); 2); 3); 4).
1) Стиральная машина, 2)Холодильник, 3) Проигрыватель, любое техническое устройство. Человек не является формальным исполнителем. Но возможно. если он выполняет работу на конвеере