Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.
Там будет 2 круга 1 большой и в нём ещё 1 маленький, большой это все телефоны, а маленький это твой
1.как называется прграма которая обладает способностью к самовоспроизведению?
В какой программе можно рисовать фигурами (wordpad)
есть 2003 ,2004и 2007(wordpard)
можно подключить пакет из другой программы(wordpard)